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IDENTIFICATION 





PRODUCT CODE: MAINDEC-11-DZ8MD-G-D 


PRODUCT NAME: BM873 - UNIVERSAL RESTART ROM LOADER 


DATE RELEASED: OCTOBER 1976 


MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 
Ad Us PRET CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 

Y APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THis DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDMNCE WITH THE TERMS OF SUCH A LICENS 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIBILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1973,1976 DIGITAL EQUIPMENT CORPORATION 
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PRODUCT CODE: 


PROGRAM HISTORY 


MAINDEC-11-D2BMD-G-D 

BM873 - UNIVERSAL RESTART ROM LOADER 
JULY 1973 

DIAGNOSTIC GROUP 

JOHN EGOLF Yx, YA 


BOB MISNER 10/21/74 YB 
FOY BASHAW 3/21/75 ye, ¥0 
JIM KELLY 7721775  SYSMAC 
JOHN EGOLF 11721/75  ~=YF 
RICH MURATORI 10/76 YG 
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C2BMDG. P11 
3 ABSTRACT 
1 ane P HOERRA” of ARG Prorat FOUR, THESE Fr PROGRAMS WatL eo 
! BE DISCUSSED LAT 


POSE OF Tee DIAGNOSTIC IS TO VERIFY THE DATA IN 
THe ROM, MAKE SURE ALL ADDRESS WILL CAUSE A TIME OUT TRAP 
WHEN WRITTEN INT (EXCEPT THE TRAP VECTORS: 173024, 173224) 

NO ALERT THE OPERATOR AS TO WHAT THE OFFSET ADDRESS 
houep BE IF A SELECTED SUTTON IS PUSHED. 


NOTE: FOR NORMAL CONF el IONS; THE oe" pareee 


NECESSARY FOR BCCEPTANCE OF THE pie? 3 ARE OGRAMS 
ONE AND F PR 0 IS NECES 2y FoR “NON-STANDARD” 


SETUPS AND IS A MAINTAINCE TOOL. PROGRAM THREE IS 
ALSO JUST FOR MAINTAINCE AID. 


2. REQUIRMENTS 
2.1 EQUIPMENT 


ANY PDP-11740 CPU 
UN Med 


AT LEAST 4K OF MENOR 
é.2 STORAGE 
THIS PROGRAM RESERVES THE RIGHT TO USE ALL 
OF THE FIRST 4K EXCEPT WHERE BOOTSTRAP LOADER 
AND ABSOLUTE LOADER RESIDE. 
3. LOADING PROCEDURE 
ROGRAM LOADED LIKE ANY OTHER PROGRAM 
ECTAPE MAGTAPE OE ETC. 


SUCH AS: PAPER T D 
MOST COMMON WILL BE THROUGH DECTAPE BY T 
USE OF ROM BOOT LOADER. 
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4. 
4.1 


“.2 


4.3 
4.3.1 


4.3.2 


me re en ee 3 ee ee wee 


E01 


STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

SWITCH OO CLEARED D INDICATES ONLY FIRST 128 
cet Thotcht cS. XT NDED 128. WORDS 
BR HEC CKED WHICH CASE 

Proce me HST Peal 3Y-B Rat D,F OR G, 256 WORDS 

ARE AU TONATT CARLY CHECKED. 

STARTING ADDRESS 

STARTING ADDRESS 000200 

OPERATOR ACTION 

OR NORMAL OPERATION (WITHOUT EXTENDED 128 WORDS) 

1. LOAD STARTING ADDRESS (000200) 

. SET SWITCHES AS PER 5.1.1 (NORMAL ALL SWITCHES DOWN) 
4 Press START SWITCH AND RELEASE. 
DEVICE VERSION. 

WHEN PROGRAM IS STARTED FOR THE FIRST TIME THE FOLLOWING 

WILL BE PRINTED OUT: 

MAINDEC~11- 

DEVICE VERSION 

BM873- 


Y 
THE OPERATOR WILL THEN SPECIFY THE VERSION BEING ae. 
BMB73-Y# 13 for free ee en 


=-t ml) 


NOTE: PROGRAM TWO MUST BE RUN FIRST. 

BM873-YA REPLACES M792-YA,MR11-DB,M792-YH 

BM873-YB MAS 

BM873-YC DDCMP BOOTSTRAP ROM 

BM873-YD KL1O (PDP-11) 256 BOOTSTRAP ROM (VERSION 2117 
BN873-YF KL1O (PDP-11) 256 BOOTSTRAP ROM (VERSION 3(e3 
BMN873-YG KL10 (POP-11) 256 BOOTSTRAP ROM 


5. THEN TYPE IN NUMBER OF PROGRAM TO BE RUN (NORMALLY PROGRAM 1 AND 4) 


IF 108 RaSH TO TEST THE EXTENDED 128. WORDS THIS IS THE 
(NOT NEEDED FOR NORMAL TESTING OF 8M873Y-B,C,D,F OR G) 
1. LOAD ST ART ING ADD. 000200 


e. 
3. ot a AND opNae CYCLE Sk UP 
4, Hit A Hit Ae FOR ON 
S. 
ROTE: VISUAL INS ¢ ie D i 

IS YOUR R redo ih: Fon 

PLACED INTO SOFTHARE "TABLE FOR. TEST COMPARISON. 
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tt: S. OPERATING PROCEDURE 
iar 5.1.1 SWITCH SETTINGS (APPLICASLE IN ALL PROGRAMS) 
132 SWiS = 1 OR UP ... HALT ON ERROR 
133 SW14 = 1 OR UP ... LOOP ON TEST 
1% SW13 = 1 OR UP ... INHIBIT ERROR PRINT OUT 
iz SWl2 = 1 OR UP ... RESERVED 
se SWil = 1 OR UP ... INSTEAD OF EXERCISING EACH ADDRESS 10X DO IT 1x. 
ope SWOS = 1 OR UP ... LOOP WITH CURRENT ADDRESS 
Spe SWOB = 1 OR UP ... GOTO BEGINNING OF CURRENT PROGRAM ON ERROR 
oe 6. ERRORS 
208 6.1 ERROR PRINT OUT 
209 


WHEN READING ROM THE ADDRESS HILL BE PRINTED 


210 ALL ERRORS W aa HAVE 8 PRINT OUT. IF IT WAS A COMPARISON 
Bil ERROR; THe ROM RODRESS EXPECTED DATA 

212 FR OM’ 0, Bi THE i int rer W L BE BE PRINTED 

213 hi I off Mas TRAP THE A N WRIT 

ei ADDRESS WILL BE PRINTED OUT. IF ah SUNEXPESTED TRAP “ 
216 




















GO1l 


JUNE A305 MACYI1 27(732) 14-OCT-76 15:26 PAGE 7 
DZBMDG.P11 


4 6.2 ERROR RECOVERY 

219 1. ITS A GOOD IDEA TO LEAVE SW1iS=] WHILE TEST RUNS 
220 TO PREVENT A BUN AWAY ERROR FROM GOING WILD 
gsi IF YOU LEAVE THE CPU. 

5 3 2. IN AN ERROR: SET SW14=1(LOOP ON THIS ADDR.) 


AND SET SW 13=I(DELETE ERROR PRINT OUT). 
ees IF CPU IS HALTED; HIT CONTINUE. 


2 
ae 
226 
ee? 3. NOW THE PROGRAM IS RUNNING AND YOU MAY SCOPE IT. 
gee : RESTRICTIONS 
31 7.1 STARTING RESTRICTIONS 
e33 " SEE SECTION 4. 
e35 ; 7.2 OPERATING RESTRICTIONS 
237 7.2.1 IF YOU WISH PROGRAM TC TEST YOUR EXTENDED 128. WORDS; 
238 YOU MUST START AS PER SECTION 4 AND T 
e339 ##%%%% RUN PROGRAM 2 FIRST AND wow VERIFY DATA. x¥#% 
eH0 (NOT APPLICABLE TO BM873Y-B,C,D,F OR G) 
pup 7.2.2 YOU MAY NOT ALTER THE SOFTWARE MAP UNLESS-- 
: se ##22%% YOU KNOW WHAT YOU ARE DOING #%#%% 
Pets 7.2.3 THE ROM ADDRESS MUST START AT 173000 AND BE AT LEAST 
eds 128 WORDS LONG. (256 FOR THE BM873Y-B,C,D,F OR G) 
ee 7 MISCELLANEOUS 
g50 8.1 EXECUTION TIME 
252 PROGRAM ONE WILL PASS AT RPPROX. FIVE MINS. 
253 PROGRAM TWO HAS NO END PASS: BUT WILL HALT AT COMPLETEION 
254 HIT CONTINUE TO PROBEED IN IN THIS PROGRAM. 
25s PROGRAM THREE (RUN) WILL PASS APPROX. FIVE MINS. 
2cé PROGRAM FOUR WILL PASS APPROX. FIVE MINS 
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9.2 


9.3 


9.4 





HO1 





PROGRAM DESCRIPTION 
PROGRAM 1 


PROGRAM t WILL VERIFY THE DATA IN THE ROM AND THE VERIFY 
THAT WRITING ie ROM WILL TRAP OUT (EXCEPT THE VECTORS) 
pesaTin BORER Te fe rere EFERENCED FIVE TIMES IN A ROW BEFORE 


ADDRESS. 
Su UA AS UP EN ther WAS HIT, THE EXTENDED 

128 WORDS ate BE CHECKED 

256 WORDS WILL BE CHECKED AUTOMATICALLY IF 

BM873Y-B,C,D,F OR G IS TESTED. 


PROGRAM 2 
ae 2 WILL nar THE CONTENTS OF THE ROM ONTO THE 


NOTE NO vER FICATION 
OF “ANY Ns IS PERFORMED ON ‘i's DATA. (AN ERROR WILL OCCUR 


IF A lt: S EN eee WHILE he ta rae Mi ae oar” 

THE EXTENDED 128, WORDS WILL BE PRINTED. 

256 WORDS WILL BE PRINTED IF BM873Y-B,C,D,F OR G IS SELECTED. 
PROGRAM 3 


PROGRAM 3 IS THE SAME AS PROGRAM ONE EXCEPT THAT THE 
USER HAS THE ABILITY TO ALTER THE SOFTWARE 

LIST OR PRINT THE SOFTWARE MAP, AND RUN THE PROGRAM. 
NO ont! IF YOU ALTER THE MAP’BE CAREFULL OF WHAT 


FOR THE COMMANDS TO BE USED SEE TOP OF PROGRAM 3 IN THIS LISTING 


PROGRAM 4 


PROGRAM 4 CHECKS THE OFFSET ADDRESS WHEN THE SIMULATED 

PUSHING OF A BUTTON IS DONE BY THE SOF THARE ON THE FIRST PASS 
OFFSET IS TYPED OUT FOR YOU TO | VERIFY 

t THe OPFSET WILL 

BE). AFTER THE DATA IS TYPED OUT wt IS STORED AWAY IN 

CORE. WHEN THE FIRST PASS IS FINISHED THE PROCESS IS 

REPEATED ONLY NO TYPE OUT IS PERFORMED, AND THE DATA 

IN GORE IS COMPARED TO THE DATA FOUND AT THE ROM. 


DURING THIS TEST SHRITING® THE ROM IS PERFORMED. 
in 1a ERBECTER 10" 1ra5° 'p aN ERROR MESSHCE WILL Be 
REPORTED IF 3 TER ape IS DISCOVERER. 











310 9.5 THIS PROGRAM IS aN AND ACT-11" ei Ba 
ait WU OP Tie TIM N CHAIN Ke. TER ACT=-1 
i ao . A Milt Wy wh? iF ROM IS 
ie peor vB. i Dre" Seer wk Te THE 1ST WORD IN RCN WITH 
ais i oe rip PR Saal bub EN ERING THE MONITOR. 
tf 9.6 ELECTRICAL PREQUISITES (HARDWARE) 
3h3 9.7.1 THIS OPTION MUST BE ON THE CPU SIDE OF ANY BUS BUFFERS. 
321 9.7.2 NPR CYCLES ARE NOT PERMITTED DURING THE POWER UP TRAP 
ac5 SEQUENCE. 
224 9.7.3 IF ener INFORMATION IS NEEDED 
3eS CONSULT THE BM873 MANUAL FOR HELP. 
326 NOTE: THE DIAGNOSTIC RUNNING aay eae ANY _INTERFERANCE FROM 
327 THE USER HAS NO WAY OF CHECKING THE PRESENTS OF THE 
328 "ACLO” AND “DCLO” SIGNALS ON THE OPTION. 
329 -NLIST 
320 -LIST SEQ,LOC,BIN 
331 -LIST 
332 - PAGE 
333 -ENDM HELLO 
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334 %, 
.MCALL .HEADER, .SWRHI, .SWALO, .£ SET TRAP, .SCATCH, .SCMTAG 
ce {MEAL ROCA geCOPe “SERROR, eR ATP geboet : : 
338 .SBTTL TRAP CATCHER 
340 go0000 =0 
341 ;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” | 
342 **SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
33 :*LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
345 Z .SBTTL STARTING ADDRESS(ES) 
sib 000200 2200 
348 090200 000137 010000 IMP JHRESTRT ; JUMP TO STARTING ADDRESS OF PROGRAM 
$50 .SBTTL BASIC DEFINITIONS 
352 ;#INITIAL ADDRESS OF THE STACK POINTER *## 1100 x## 
353 091100 STACK= 1100 
354 -EQUIV ENT. ERROR sBASIC DEFINITION OF ERROR CALL 
355 “EQUIV IOT:SCOPE ‘BASIC DEFINITION OF SCOPE CALL 
356 177776 PS= 177776 *PROCESSOR STATUS WORD 
357 .EQUIV PS.PSW 
358 177774 STKLMT= 177774 ;STACK LIMIT REGISTER 
353 177772 PIRG= 177772 ?PROGRAM INTERRUPT REQUEST REGISTER 
360 177570 SWR= 177570 : SWITCH REGISTER 
61 177570 DISPLAY=SWR 
| 363 ;¥GENERAL PURPOSE REGISTER DEFINITIONS 
364 po0000 RO= 70 >GENERAL REGISTER 
365 009001 Riz “1 *GENERAL REGISTER 
366 ooog02 Re= %, “GENERAL REGIST 
| 367 000003 R3= %, *GENERAL REGISTER 
368 000004 R4= “4 *GENERAL REGISTER 
369 po000s RS= 4S : GENERAL 
370 090006 Ro= “6 "GENERAL REGISTER 
371 000007 R7= 47 iGE R 
372 -EQUI’ &6,SP *STACK POINTER 
33 “Eauiy R7,FC *PROGRAM COUNTER 
| 375 -*"SWITCH REGISTER” SWITCH DEFINITIONS 
376 100000 GwiS= 100000 
| 37 040000 Swld= 40000 
378 o20000 Sul3= 20000 
| 379 010000 Swiz= 
i 380 004000 SWii= 4000 
| 381 | 602000 Swid= 
382 001000 SwOoS= i000 
| 383 000400 Swog= 400 
| = 364 0002 cwo7= 200 
| 388 0001 SwOb= 100 
| 386 000040 SwOS= 40 
| 387 oo0020 SWO4= 20 
| 388 000010 SW03= 10 
| 289 000004 Su0e= 
l 















KO1 


VECTOR 
443 000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
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DZBM0G.P11 BASIC DEFINITIONS 
30 opo002 SWOl= 2 
1 000001 cwOO= | 
392 “EQUIV SWO9,SW9 
393 “EQUIV SWO8; SWE 
394 “EQUIV SWO7,SW7 
395 “EQUIV SWO6;SWe 
396 “EQUIV SWOS; 
397 EQUIV SwWO4? SW4 
398 QUIV §wO3?5 
399 "EQUIV SwO2,SW 
400 “EQUIV SWO1;SWI 
401 “EQUIV SWOO,SWO 
4p3 -¥DATA BIT DEFINITIONS (BITOO TO BIT1S) 
494 1000 BIT1S= 100000 
40S 040000 BIT14= 45000 
4D 0200 BITI3= 20000 
407 01 BITl2= 100 
408 004900 BITil= 4000 
409 BITIO= 2000 
410 001000 BITOS= 1000 
41] 000400 BITOs= 400 
41> 900200 BITO7= 200 
413 000100 BITOb= | 
414 000040 BITOS= 40 
4uis 000920 BITO4= 20 
416 090010 BITO3= 10 
417 P0004 BITO2= 4 
418 pooode2 BITOl= 2 
419 000001 BITOO= 1 
459 -EQUIV BITO9,BIT9 
4D] “EQUIV BITOS,B81T8 
“EQUIV 81TO7;B1T7 
4up3 “EQUIV BITOb,B1T6 
yay “EQUIV BITOS;BITS 
yas “EQUIV BITO4,BITY 
ude “EQUIV BIT03,81T3 
427 “EQUIV BITO2,BITe 
4dg “EQUIV BITOL,BITA 
429 “EQUIV BITOO;BITO 
431 j #BASIC wcPu" TRAP VECTOR ADDRESSES. aioe 
4 arate ERRVEC= 10 RESERVED AND PTE Car TRE RUCTIONS 
434 000014 TBITVEC=14 
435 000014 TRTVEC= RACE “Teee 
436 000014 BPTVEC= ty TRACE POINT TRAP (BPT) 
437 000020 IOTVEC= 20 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
438 000024 PWRVEC= 24 * POWE L 
439 000030 EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERRORK* 
449 000034 TRAPVEC=34 j TRAPS TRAP 
441 000060 TKVEC= 60 KEYBOARD vECT OR 
WHE 000064 TPVEC= 64 TY PRINTER 
| 
| 
| 


3 
oO 
Oo 
<< 
o 


saggaggeseEseRseessEssanaes 
aaa es £ ee RORURNES TES BSERES 
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001100 
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cooses 900000 





LOI 





5p RRRRR RRS EERE REAR I EERE KER EHR EEE EEE ERITH EERE EAE 
-SBTTL COMMON TAGS 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SENBap SLOGICAL END OF PROGRAM 
-=1100 
SCHTAG: SSTART OF COMMON TAGS 
SPASS: .WORD 0 IRONTAINS PASS COUNT 
STSTNN: “BYTE 0 SCONTAINS THE TEST NUMBER 
Stents HOR fal SUBTEST ITERATION COUNT 
SLPADR: “WORD 9 SCONTAING. SCOPE LOOP 
PERR: “WORD 0 ICONTAINS SCOPE RETURN FOR ERRORS 
SERTIL: “WORD SEONTAINS. TOTAL ERRORS DETECTED 
SITEMB: “BYTE 0 {CONTAINS ITEM CONTROL, BYTE 
SERNAX: “BYTE 1 SCONTAINS MAX. ERRORS PER TEST 
RRPC: “WORD 0 ;CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: “WORD 0 SCONTAINS OF GOOD’ DAT 
SBOADR: “WORD 0 SCONTAING OF *BADY DATA” 
DAT: “WORD 0 ;CONTAINS *G000" DATA 
SEDDAT: “WORD 0 {CONTAINS *BAD’ DATA 
"WORD. 0,0,0 SRESERVED--NOT_TO BE USED 
STKS: 177560 ITTY KBD STATUS 
STKB: 177862 ‘TTY KBD BUFFER 
S1ps: 177864 ITTY PRINTER STATUS REG. 
S1PB: - 177566 STTY PRINTER BUFFER REG. 
SNULL: BYTE O SCONTAINS NULL CHARACTER FOR FILLS 
SILLS: “BYTE 2 ;CONTAINS # OF FILLER. CHARACTERS REQUIRED 
SFILLC: “BYTE 12 HINGERT FILL con ER A “LINE FEED" 
STPFLG: 5 S*TERMINAL AVAILABLE” FLAG (BIT<G7)=0=YES) 
SQUES: “ASCII 727 QUEST 
SCRLE: “ASCII CARRIAGE RETURN 
SUF: “ASCIZ STINE FEED 
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oo00c0 


017026 


000000 


017064 
000000 


017124 


00 
000000 
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5p ERR R RRR HHH H EERE RARE EERE EERE EEE EEE EEE EASA TEAR EEE EE EEE 
-S8TTL ERROR POINTER TABLE 
; *THIS NTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THe INF oR ation 1g OBTAINED BY RS iN HE INDEX NUMBER FOUND Ph 
ried ION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE (aces IS PERTINENT. 
stn TEL: IF SITEMB IS O THE ONLY PERTINENT DATA IS ( 


:¥N NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7% EM ;POINTS TO THE ERROR MESSAGE 
% DH :POINTS TO 3 DATA HEADER 
3% DT :POIN TS TO THE DATA 
3% DF :POINTS TO THE DATA FORMAT 
SERRTB: 
;ERROR TABLE ITEM FOR ERROR MESSAGE O 
oy Paaas READ DATA COMPARISON ERROR” 
DT1 + 
0 ;% PRINT ALL NUMERIC DATA IN OCTAL 
;ERROR TABLE ITEM FOR ERROR MESSAGE 1 
aa ;"WRITTING ROM FAILED TO TRAP” 
OTe 
0 ;PRINT ALL NUMERIC DATA IN OCTAL. 
;ERROR TABLE ITEM FOR ERROR MESSAGE 2 
fa ;"UNEXPECTED TRAP WHILE READING ROM” 
p13 
;ERROR TABLE ITEM FOR ERROR MESSAGE 3 
ae ;"FATAL TRAP. ROM PC ON STACK.” 
DTe 
0 
LSTERR: O ;ERROR FLAG 
ICOUNT: QO ; ITERATION COUNT. 
TEMPS: OQ 
TEMP3: Q 
TEMP4Y: QO 
SAVRO: O 
SAVRI: 0 
SAVRY: O 
SAVRS: 0 
TIT JU 


“TITLE JUNE 1976 
:*xCOPYRIGHT (C) BM873 YX 


r ee me ee ee te ee ee 


NO1 
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| DZBMOG.P11 ERROR POINTER TABLE 

23 s*DIGITAL EQUIPMENT CORP. 

10 ; BFAYNARD, MASS. 01754 
| 542 PROGRAM RY DZBMD / 
(544 S STHIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAS 
oy ; SPACKAGE (MAINDEC-11-5Z0AC-A). 
| 547 000001 dTnz1 
; yg 160050 $SWR=150000 ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
| 
| 

+ ; 
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wo 


sa 
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BOR GRRE EB de te 


PERE SSS SER LON 


———— 
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ke 
fi 


i 
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Py 

s 
abies 
wrcmMo 

z 

z 


Lb 


013707 


: 3173020 013707 
O0i4e2 177570 


3173022 177570 


B02 
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ADDRESS FOR Sets 
R IS DESIGNED FOR THE ine. MODULE M872. 
tow REPLACES THE FOLLOWING ROMS: 
gins! BOOTSTRAP FOR PC11,KL11 
TORAGE BOOTSTRAP ROM 
It ASSETTE BOOTSTRAP ROM 
;REGISTER DEFINITIONS 


to7s70 ;PROCESSOR SWITCH REGISTER 


* STARTING G LOCATION FOR RF11 DISK 
RF Li: ;SET POINTER TO PARAMETER LISTS 
* TRANSFER TO SERVICE ROUTINE 
‘DEVICE WORD COUNT ADDRESS 
*DEVICE READ INSTRUCTION 


THIS IS THE STARTING LOCATION FOR THE RK11 CONTROLLER 
1: NTER ARAMETER Last 


BS 
28 


DEVICE READ INSTRUCTION 


THIS IS A SPARE STARTING LOCATION. IT TRANSFERS TO ADDRESS 
ONTAINED IN THE SWITCH REGISTER. 
thansr. NOV aeSR,PC ;G0 TO INDICATED LOCATION 


NOTE 773024 AND 773224 ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 


aouseo 


ao 

REV 

i 
fee Wd 


ee esee we e@eowe 
P= 82 B- B= HH Be 


“THIS IS THE POWER UP VECTOR REQUIRED FOR DEVICE AND 
POWER: .WORD RFIJ FIRST LOCATION IN ROM 


iBROCESEOR STATIS LEVEL 7 


tell PARAMETER LIST 


AS 
:USED AS ERROR {NO Lenton TEST FLAG 

THEN TRANSFER TO NEXT ROUTINE 
-WORD S ;DEVICE READ COMMAND 


'THIS IS THE START LOCATION FOR TM11 MAGTAPE CONTROLLER 





gee - 


MOOrrrrwmna 
saggegegeres © 
Reet taaig 


2 02 bo 80 bb -+ 2 9-0 baw Be 
WO IM UIL WIfue-C? 


BeRe 


he terres Tae rome 


mult 


eer ers) 
oO .£r©g 


BRR SER tome aes 
HORSES 


SS88B88SB8S888 BB88 SSESSBSSBSS888 sss 
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ou 
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010702 
6 


pao 
~“J 


eae bts ae 


oO 
8 
bs pe pe 
Stee Se Ct Stet SF St Stee Ce ee ee we 
Do & = b= b= &- 2 Bs Hs 2 2 = HO HHH 2 He 


Re 


3173050 010702 
3173052 00041 
3173084 L7ese4 
3173056 


a 
ee 


: 


8 
oO 


i. 


8 
a 
: 


RRS 
aBs 
od 


& 


eres eres 

a ee oo 

o-b=b-b = 
—TU 
or 


BIGSSGAGGGdaaGG coc 


OO B+ b+ = bb = = Hh 
oO 


a 


HORZRERERBT EHO 
BRRBRS 
tue 


E 


ae 


eeere ee ee 
So eo 


Saddddcaas coat 


SiNorewors Kone 
a 


ae 


= 


ee ee a a en ee 
—-Or 
co 
— 
2 
b= b= 


a8 


2 = Bo fe fb 2 Bt b> bs hs Bw Bn Pet bs Pow 


. 
be 
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TM11:  MoV.PC,Re SET POINTER TO PARAMETER LIST 
BR TAPES :AND TRANSFER TO FIRST ROUTINE 
.WORD 172524  ;DEVICE BYTE/RECORD COUNT REGISTER 
ORD 60017 * DEV CE aaa A ae 
WORD 200 : DEVICE DONE F 
ORD 100000 sDEVICE ERROR F CAG BIT 
TAPESX j THEN ANSFER 0 NEXT SERVICE RTN 
~WORD 60011 : DE Shoe FORWARD SPACE COMMAND 
“WORD 200 : SAME aS ABOVE 
“WORD 100000 isa AS ABOVE 
BR OTHERX HEN TRANSFER TO READ/TRANSFER ROUTINE 
.WORD 60003 ‘DEVICE READ COMMAND 


TH 1s Is THE START LOCATION FOR THE RPL! CONTROLLER 
beri R LIST 


THIS IS THE ya DEVICE SERVICE ROUTINE. 


TAPES: “MOV Re ;GET ADORESS OF PARAMETER LIST 
TST (RO)+ :SKIP TWO WORDS FIRST TIME 
TAPESX: RESET *RESET ALL DEVICES 
TST (RO)+ : SKIP BRANCH INSTRU 
MOV 2(R2),R1 § ;THEN GET DEVICE WORD/BYTE COUNT ADDRES 
DEC aR1 sAND SET TO - 
MOV (RO)+,-(R1) :AND THEN ISSUE COMMAND TO DEVICE 
TAPWAT: BIT ORO, aRI *WAIT FOR DEVICE COMPLETION 
BEQ TAPWAT “BY HANGING IN LOOP 
TST (RO)+ *AND THEN SKIP DONE FLAG 
BIT (RO)+,-(R1) : THEN TEST FOR ERROR 
BNE ERROR “THERE I 
RETURN: JMP oRO "AND TRANSFER TO FOLLOWING INSTRUCTION 


“THIS IS THE STARTING ADDRESS FOR RC11 DISK CONTROLLERS 
RC11: MOV PC,R2 -SET UP POINTER TO PARAMETER LIST 
OTHER * TRANSFER TO SERVICE 
WORD 1 “DEVICE WORD COUNT REGISTER 
c “DEVICE READ INSTRUCTION 


THIS ROUTINE PERFORMS THE ACTUAL TRANSFER TO MEMORY OF DATA 
OTHER: HOV Re RO iT INTER TO LIST IN RO 


(RO)+ WO WORDS FIRST TIME. 

OTHERX: ter (RO) Tp PAST BR INSTRUCTION 

RESET *REST THE WORLD 

MOV 2(R2),R1 OBTAIN DEVICE WORD COUNT ADDRESS 

MOV #-1000,9R1 ;THEN OBTAIN LARGE WORD COUNT 

MOV JRO,-(R1) — ;AND PUT COMMAND TQ DEVICE 
OTHWAT: TSTB aRi WAIT FOR DONE FLAG 

BPL OTHWAT :BY HANGING IN LOOP 

ST ORI THEN, TEST FOR ERROR 

BMI ERROR GOT PROBL 

CLR PC ‘AND TRORSEER TO ZERO 


no 
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DZBNDG.P12 ROM CONTENTS TABLES 
661 z 
$2 ;THIS IS THE STARTING ADDRESS FOR THE PC11 PAPER TAPE CONTROLLER 
663 001610 012704 ;173210 012704 KLil: MOV #177560,R4 ;OBTAIN DEVICE ADDRESS 
654 OO0l6l2 177580 :173212 177560 
bbS OO1E14 S40 3173214 000440 BR CKDEV sAND TRANSFER TO READER SERVICE ROUTINE 
| H 
67 
| ee -THIS IS THE CASSETTE DEVICE COMMAND TABLE 
669 001616 Ol17640 ;173216 240 TABLE: .BYTE 240 : COMPARE WORD NOT A COMMAND 
670 2173217 037 “BYTE 37 : TLBS+RWD+G0 
671 001620 O0241S5 ;173220 O15 .BYTE 15 *SPACE FORWARD BLOCK+GO 
572 3173821 005 SBYTE 5 ; READY 60 
673 OOl622 112024 :173222 O24 -BYTE 24 *READ+ILBS 
674 °173223 204 YTE 224 *READ+ILBS+END FLAG 
B75 sNOTE 773024 AND 773224 ARE DEPENDENT ON OFFSET tN DIODES FOR LINE 1 
677 “THIS IS AN RODITIONAL POWER VECTOR ADDRESS REQUIRED BY DEVICE 
678 001624 173000 ;172224 173000 POWER2: .WORD AFL! sRDDRESS OF BEGINNING OF BOOTSTRAP 
673 001626 000340 :173226 000340 -WORD 340 *PRIORITY LEVEL 7 
681 'THIS IS THE STARTING ADDRESS FOR THE CASSETTE DEVICE #0 
68 001630 o0SO04 ;173230 005004 EBOOT: CLR RY sLOAD DEVICE NUMBER O IN 
683 001632 012700 :173232 012700 RESTX: MOV #177500,RO ;GET DEVICE ADDTESS 
684 001634 177500 ; 177500 
685 001636 000005 +:173236 O0000S RESTRT: RESET s ISSUE RESET INSTRUCTION 
| BBR OOH 010410 5173240 010410 dRO *LOAD DEVICE WITH UNIT NUMBER 
| 887 OOle42 012701 5173642 012701 MOV STABLE,R1 GET FUNNY TABLE OF INSTRUCTIONS 
| §88 OO1G44 173216 3173044 173216 
| 689 901646 O1e702 5173246 012702 MOV #375,R2 ;AND LOAD UP TRANSFER COUNTER 
690 O01650 000375 ;173250 000375 
| §91 O01652 112103 ;173252 112103 MOVE (R1+, R3_; THE LOAD UP COMPARATOR 
| §92 OO1654 112110 +173254 112110 LOOP1: MOVB (Rij+,0R0 LOAD DEVICE REGISTER WITH COMMAND 
| §83 001656 100407 ;173256 100407 BMI DONE 
| 694 OO1660 130310 3173260 430310 LOOP2: BITB R3,aR0 HAS COMMAND COMPLETED 
| 695 001662 001776 +:173262 001 BEQ LoSee °NO. WAIT 
| 69% OO1664 1 7173264 105202 io R2 j THEN INCREMENT ADDRESS CTR 
| 697 OO1666 1 5173066 100772 BMI LOOP! : IF NEGATIVE GET ¢ COMMAND 
698 001670 116012 ;1 116012 nOVEY 2(RO),dR2  3AND STORE DATA 
' §93 001672 pp000e :17327e2 o0002 
| 700 001674 I 3173274 I BR LOOP2 GO GET ANOTHER BYTE 
| 701 001676 905710 ;173276 005710 DONE: TST oRO “ANY DEV Ice ERRORS 
| 702 001700 100756 {173300 100756 BHI RESTRT iYES,. RETRY 
| 703 001702 O0S002 ;173302 o0So02 CLR Re cLE4e COMPARE > foORESS AND TRANSFER ADDRESS 
| 704 001704 se0312 $173304 120312 CMPB R3,dR2 iit IT MUS MUST BE E40 
| 705 001706 0601 2] 001377 BNE .+0° : WAS AN ERR 
706 001710 O00112 3173310 000112 ERROR: JMP are NORMAL CASSETTE ans GRROR FOR BULK STORAGE 
| 708 ‘THIS IS THE STGRTING, LOCATION FOR THE PC11 CONTROLLER 
/ 709 001712 012794 ;173312 012704 PC1I: MOV #177550,R4 ;LOAD DEVICE ADDRESS 
' 710 01714 177550 +173314 177550 
| 741 001716 3173318 CKDEV: RESET ;KILL ALL DEVICE ACTION 
| 72 O01 1 *1 12701 MOV #160000,R1 ;THEN SET UP MEMORY TEST LIMITS 
| 713 001722 1 173322 160000 
714 017e4 02 i 173364 ? MOV #6,R2 sAND SET UP POINTER TO TIMEOUT LOCATION 
715 0017 217 
716 001730 012712 +;173330 012712 MOV #340,dR2 §;AND SET UP VECTOR TO RETURN TO NEXT 


‘ 





i a . em ee ++ ee re ee ee 


+ 


S8888S88sss 


— 


MACYI1 27(732) 14-OCT-76 15:26 PAGE 18 
ROM CONTENTS TABLES 


pobSus iiaassd Grosae nov PC,-(R2) 
pigs eke Boece V #24,5 
10441 3173310 rt MOV RY, -(R1) 
: PRI 
bubeat | 4 1 Be 
O10111 317 010111 MOV a a 
G2 3:17 11108 LOOP: MOV aRI,Re 
14 317 14 NC aR4 
105714 3173354 105714 RDRWAT: TSTB aRY 
100376 3173356 190376 PL RDRWAT 
116412 ;173360 116412 MOVB 2(R4),aR2 
000002 ;173362 O00002 
005211 +;173364 005211 INC ORL 
120227 3173366 120227 CMPB Re, #375 
Q00375 517 000375 
001366 ;173372 001366 BNE LOOP 
loses i 173374 105222 INCB (R2)+ 
O00i42 ;173376 o0o142 IMP -(R2) 


Ce a ee ee eee 


;HAS BRANCH OFFSET BEEN STORED 


:NO 
sYES, ALL DONE 
; THEN TRANSFER TO RTN 











E02 


;SAVE THE PC 
AND LOAD UP STACK POINTER 


;AND LOOK FOR END GF MEMORY 
THEN DROP TO XX775e 

; AND STORE IN ITSELF 

; THEN Ley ADDRESS FOR DATA INSERTION 
SAND sTaRT DEVICE 

; THEN WAIT FOR FOAROCTER AVAILABLE 
HANGING THERE IF NECCESSARY 

STORE AWAY DATA BYTE 


FO2 
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OZBMOG.P11 ROM CONTENTS TABLES 
237 ; 88738 BOOTSTRAP MACYL1 27(655) 12-OCT-74 14:50 -PAGE 1 
53 sDATE: AUG 23, 1974 
749 6002000 hy YB: 
74) : THE FOLLOWING Is A REPRODUCTION 
74D 30F THE ROM PROGRAM FOR BM873Y8. 
743 >IT IS HERE ERO COMPARISON TO THE 
oa SACTUAL ROM AND FOR REFERENCE 
ous 
748 : THIS IS THE LOADER TO REPLACE THE FOLLOW 
74g : :M792-YA PAPER TAPE QTSIRAP ROM 
750 : sR 1-DB BULK STORA OTSTRAP ROM 
751 : TAL CASSETTE BOOTSTRAP ROM 
abe : i RMean" COMBINATION OF ABOVE ROMS 
734 : ;PREPHERIAL EXTERNAL PAGE REGISTERS ASSIGNMENTS: 
756 : 177462 = 177462 sWORD COUNT REG. FOR RF1 
757 : 177406 RKWC= 177466 “WORD COUNT REG. FOR RK1 
758 : 177344 TCWC= 177244 WORD COUNT REG. FOR TCl 
759 : 172524 = 172524 BYTE T 
760 : 176716 = 176716 "WORD COUNT REG. FOR RPI 
761 : 177450 RCWC= 177450 WORD COUNT REG. FOR RC1 
7&2 : 177560 KLCS= 177560 “CONTROL REG. F ll 
763 : 177500 TACS= 177500 ;CONTROL REG. FOR TALI C 
764 : 177550 PCCS= 177550 *CONTROL REG. FOR PC11 
765 : 172440 = 172440 *CONTROL STATUS REG. 1 
7b : 172442 TUWC= TUCS+2 *TUL6 WORD COUNT REG. 
768 : 176300 RHCSA= 176300 ;CONTROLLER REG. 1 FOR R 
763 : 1 RHWCA= RHCSA+2 
| 775 : 17eans petehe sCONTROLLER REG.1 FOR RH 
| 771i : 172042 RSWCA= RSCSA+2 
772 : 176700 RPCSA= 176700 ;CONTROLLER REG. 1 FOR R 
773 : 176702 RPWCA= RPCSA+2 
774 : “FUNCTION VALUE FOR PREPHERALS: 
775 : 000005 AFREAD= S sREAD FUNCTION 
776 : 004003 RNUM= 4003 * RE AND IDENTIFY BL 
| 777 : 060017 TMRWND= 60017 sREWIND AND SET 800 BPI 
778 : 060011 TMFWRD= 60011 °F COMMAND 
| 779 : 060003 ‘TMREAD= 60003 :TM11 
| 780 : 000011 ORCLR= 11 * DRIVE 
| 781 : 000071 = 71 *RH11 READ C 
| Be : 000021 RHPRST= 21 "READ IN PRESET 
| re : eOobee  TutaPES ah Tepe FOREN RAL ORHOT. 
| 785 : 0C13 TUNGDEZ tSoR DBT MODE FOR 
| 786 : 601000 FCE= 1000 + PRANE COUNT ERROR BIT 
787 : “CONSOLE SWITCH REG 
| 788 : 177570 (SW= 177570 
| 3e 
| 791 : ONLY THE LOW BYTE OF CONSOL SWITCH REGISTER IS 
| 7 : “SELECT THE UNIT NUMBER OF THE DEVICE TO BOOT FR 






















7393 


74 173000 .=173000 


E “THIS IS THE STARTING ADDRESS FOR RHI1/RS03/04 D 
? foo040S “RHRSA: BR 1$ ENTRY R SELECTING UNI 
73002 019703 RHRSB: MOV PC.R3 _ : ENTRY ro SELECT UNITS 

? MOVE aatSW,dsRSCSA+10;LOAD UNIT # INS 


BIRR 


7 


g 


SpReERee 
5 


10 

le O00401 BR 2 

14 MOV PC. R3 

MOV #RSCSA,RO;SET CONTROL STATUS REG 


; 173020 
; 173022 —— BR RHCOMN 


IS THE AUTO LOAD VECTOR 
: 173024 THIS, .WORD RHRSA 
3173026 000340 -WORD 340 


;TuIs IS 


3 
“a 


STARTING ADDRESS FOR RK CONTROLLE 
A: 2 sENTRY TO SELECT UNIT O 
B: Ry PC,R3 SENTRY TO SELECT ALL UNI 

SAVE ERROR RETRY 
MOVB iicaH, RS;SET POINTER TO PARAMETE 
#10,RS ;SET POSITION BIT 
RS ;SHIFT UNIT # TO BIT 13- 
RS, aarKutes, “MOVE IN TO RKDA REGI 


BR 3$ ;SKIP NEXT INSTRUCTION 
Be RS SAVE ERROR RETRY ADDRES 


OTHERA 
RKWC 
RFREAD 
HIS IS THE STARTING ADDRESS FOR TC11 (DECTAPE) 
TC1I: MOV PC,R3  ;SAVE ERROR RETRY ADDRES 


3 
Tw 
- 
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; ° RNUM 
140900 ;173104 100000 -WORD 100000 ;DONE MASK 
024000 3173106 Oe4000 -WORD 24000 ;ERROR MASK 


ae 
a 


'TM11 STARTING ADDRESS 
0703 ;173110 619703 TMil: MOV PCR SAVE ERROR RETRY ADDRES 
? 2737 MOV A TARUIND, iene, “REWIND TAPE 


FRESH SARA OC ROSS CNTR 
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010702 ; 3173180 010702 MOV PC, Re 
ooOosss : o00sss BR TAPES 
172524 3173124 172524 .WORD  TMWC 

* 173126 969003 “WORD  TMREA M11 READ COMMAND 
060011 173130 O60011 "WORD  TMFWR in FORWARD RECORD COM 

173132 000200 “WORD 20 MA 
100000 ;173134 100000 “WORD 100000 ERROR MASK 
: ITHIS IS THE STARTING ADDRESS FOR RF11 CONTROLLE | 
610703 ;173136 big7o3 RF II: PC,R3  ;SAVE ERROR RETRY ADDRES 
010702 3173140 010702 NOY PC’R2  :SET POINTER TO PARAMETE 
000516 3173142 Ba0Sie BR OTHER °G G0 79 COMMON SERVICE RO 
177462 3173144 177462 . WORD a sDEVICE. WORD COUNT REGIS 
Go000S ;173146 O00005 WORD READ ;READ COMMAND 
: “THIS IS THE STARTING RODRESS FOR RH/TULG/TMO2 
610703 ;173150 610703 TUl6: MOV PC,R3 __;SAVE ERROR RETRY ADDRES 
012700 :173152 012700 MOV #TUCS,RO:GET CONTROL STATUS WORD 
170440 3173154 172440 
012710 3173156 012710 TULGRE: MOV #RHPRST, (RO);REWIND TAPE CLEAR E 
000021 3173160 o00021 
012760 3173162 012760 MOV #TUMODE,32(RO);SET 800 BPI NORMA 
001300 3173164 001300 
000032 3173165 000032 
012760 3173170 012760 MOV #-1,6(RO);LOAD FRAME COUNT 
177777 3173172 177777 
000006 3173174 O00006 
012710 :173176 012710 MOV #TUSPAC, (RO);SPACE FORWARD 
000031 173200 000031 
105760 :173202 105760 1S: TSTB =—-:12( RO) 
000012 3173204 o0001e2 
100375 :173206 100375 BPL 1$ KEEP LOOPING 
000433 :173210 000433 BR RHCOMN 
: ‘THIS IS THE STARTING ADDRESS FOR RC11 CONTROLLE 
610703 ;173212 610703 RC11: MOV a 
01 2173214 010708 MOV PC;R2  ;ASSUME UNIT O 
000470 3173216 0004 BR OTHERA 
177450 3173220 17750 . WORD 
900005 ;173222 “WORD  RFREAD 


"i "THIS IS THE AUTO LOAD VECTOR 
173000 ;173224 173000 .WORD HRSA 
000340 :173226 000340 .WORD 340 


STHIS IS THE STARTING ADDRESS FOR RH11 DEVICE CO 


g 

: sNOTE: IF TMO2/TU16 SHOULD BE SELECTED, THE VAL 
: *IN CONSOL SWITCH REGISTER IS THE POSITIO 

: ON THE RH11 INSTEAD OF THE UNIT # ON TUL 

} ‘THE SLAVE UNIT # (8 ON TUI6) SHOULD STIL 
Hoowos ;173230 Oo0405° RHIIA: BR 1§ sENTRY TO SELECT 


UNIT 0 
010703 $173232 010703 RHIIB: MOV PC.R3  :ENTRY TO SELECT ALL UNI 
113737 3173234 113737 MOVE  aaCSW,d#RHCSA+10;LOAD UNIT # INS 
177570 173236 177570 
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ROM CONTENTS TABLES 


176310 ;173240 


poo004 $173312 
posoo2 3173314 
000430 173316 


3173378 


176310 - - 
ytite 1$: MOV PC,R3 
o12700 2s: MOV #RHCSA, RO 
032760 RPCOMN: BIT #TUTAPE,26(RO);TAPE UNIT? 
040000 
o00026 
001336 BNE TUIBRE ;YES. GO TO TAPE LOGIC 
012710 MOV #RHPRST, (RO);RESET DRIVE 
012760 MOV #14000, 22(RO);SET 16 BIT FORMAT 
014000 
000032 
012716 MOV #DRCLR, (RO);CLEAR DRIVE ERROR 
» (GENERATED IF RSO3/04 

005720 RHCOMN: TST {RO}+  ;MOVE TO WORD COUNT ADDR 
010037 MOV RO,a82 ;FAKE CALLING SEQUENCE 
Bre7ae MOV —s- #RHREAD, a84 
000071 
000004 
ooso0e2 CLR R2 ;FOR FLAG AND POINTER TO 
000430 BR OTHERA 
.DSABL LSB 
“THIS IS THE STARTING ADDRESS FOR RHL1/RPOY DISK 

RHRPA: sENTRY FOR SELECT UNIT 0 
010703 RHRPB: MOV PC.R3 : ENTRY TO SELECT ALL UNI 
113737 MOVB aay aukecsay 10; *LOAD UNIT # INS 


1 BR 2$ 
010703 1S: MOV PC.R3 
012700 2S: MOV #RPCSA, RO 


000743 BR RPCOMN 
SENTRY TO BRANCH TO THE PC SELECTED BY CONSOL SW 
613707 CSRGO: MOV aaecsw,P 
177570 
; 
‘THIS IS THE STARTING ADDRESS FOR RPL CONTROLLE 
Oo0040S “RP1IA: BP 1$ sENTRY TO SELECT UNIT O 
010703 RPtiB: MOV pe R3 SENTRY TO SELECT ALL UNI 
113705 MOVe aacSW,RS’ 
177570 
000305 SWABS GET UNIT & INTO HIGH BY 
000402 BR 3 
010703 1S: MOV PC,R3 
005005 CLR RS’ 
010702 3S: MOV PC, Re 
000403 BR OTHER 
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176716 
oo0005 


—~eccooco 
Mmuo 


oo 
at 
“NUT 
—<£ 
a 


RPWC 
RFREAD 

RS ;SET TO UNIT 0 

R2.RO :RO POINT AT WORD COU 
(RO)+ :POINT TO PARAMETER me 


(RO)+,R1;MOVE WORD COUNT ADDRESS 
#-256:%2,(R1);LOAD WORD COUNT 


(RO),RS ;COMBINE UNIT : “iI TH COM 
RS,-{R1):LOAD READ COMMAND 
#100200, (R1);CHECK FOR ERROR AND 


100200 

001775 -4 ;WAIT UNTIL COMPLETE 
100012 i$ ?NO ERROR 

005702 R2 ;HAS IT CALLED BY MASS B 
001024 AGAIN RROR 

032761 #TUTAPE, aECRID -15 TUL6? 

040000 

000026 

001420 AGAIN :NO. ERROR 

022761 #FCE,14(R1);ARE WE READ A SHORT 
001000 

000014 

001014 AGAIN ; SOME OTHER ERROR 
005007 1S: PC :0.K 

i 

*THIS IS THE TAPE DEVICE SERVICE ROUTINE 
Oi0200 TAPES: MOV R2,.RO  ;GET THE ADDRESS OF THE 
005720 TST (RO)+ j STEP TO LAST COMMAND 
012001 (RO)+,R1;GET THE WORD COUNT ADDR 
005311 (R1) ° 3SET UP TO ADVANCE 1 REC 
005720 (RO)+ HOVE of TO FIRST COMMAN 
012041 (RO)+, -(R1) 
031011 (RO), (RL); et 
001776 2 AO. KEEP LOOPING 
605720 (RO)+ *YES. CHECK FOR ERROR 
031041 (RO). -(RL);ANY ERROR? 
001736 OTHERA ;NO ERROR- TRY TO READ 
000005 
000113 (R3)  ; ERROR RETURN 

“THIS IS THE STARTING ADDRESS FOR PC11 PAPER T 

12704 KLII: #KLCS,R4; OBTAIN CORFROL REG. 


an0543 


- CASSETTE 
*BYTE 240 317361 16 


-BYTE 037 5173517 


° 1 
“BYTE 005 3173521 
“BYTE O24 3173522 


& Op IrE. come TABLE 
-BYTE e240 ;COMPARE WORD NOT A COMM 


CKDEV ;AND TRANSFER TO READER 


BY Tf 37 : TLBS+RWD+GO 
‘Bite is ; SPACE FORWARD BLOCK+GO 
“BYTE 24 READ +ILBS 


- 
t+ 
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UNE 1976 MACYI1 27(732) _14-0CT- , 
BNOG-Pil «RON CONTENTS TaBLes Tee PGE 8 
1017 002523 .BYTE 224 ; 
1018 dy mi ” BYTE 224 = ;READ+ILBS+END FLAG 
‘THIS IS THE STARTING ADDRE 

: £17 4o4 | SS FOR THE CASSETTE D 
i poses era re? vera TB: Rove — Aacsw,RafSELECT UNITS 
He fee Gee ites Ge BP Bern 
ie ee Wen item FS Bin, BY 
IGE? GOesHe 77600 f1PSeHe 177600 : MOV» STACS,RO;GET CONTROL REG. 
1529 002645 BIOSI 173646 BIONIO MOY RY, (ROD: 
1032 posed 012702 317 
1033 02656 On0a7s 173558 toga MOV -#375,R2 ;LOAD TRANSFER COUNTER 
1035 pasere 112110 217 103 _ MOVB — (R1)+,R3;LOAD COMPARATOR 
Ee ee ee ee ee oe: le Elan scrmme cmmu 
938 092570 001776 3179570 001776 = ae Pa, {80) iC COMPLETE? 
1949 yee 100078 Hee 105e0e INCE RES INCREMENT ADDRESS. CTR. 
ioe Bpee0e adeoAS :173e09 © Hoo0de MOVB (RO), (R2);STORE DATA 

O02602 000771 ;173602 00077 
i oe O0s716 17303 005710 bone: Fer © (RO) ANY ERROR? 
ea 5179606 100756 BNI  RESTRT ‘YES, RETRY 
Ioy? Bosele feosis ii7sete CLR Re CLEAR COMPARE ADDR 
1ove Ooseis O01s79 ii7seia 001377 tee = 3, cha) j1T wus Ge e40 ~ 
in” 002616 OOOl12 5173616 O0011e ERROR: JMP (Re) 
1051 ITHIS 1S 

T 

10se ones20 bier ; 173529 bye7by peli: MOY apccs,Ry 
p63 Opeees 00005 fi7aee4 Gp006s 
i0ee BO000S i} D00005 CKDEV: RESET 
105e pores 16600 173655 12701 MOV #160000,R1;SET UP MEMORY TEST LI 
1058 Bose 000005 Hes pier oe MOV #6,R2_—;SET UP POINTER TO TINEO 
1060 postg oobi6 iteaeae Baasag MOV #340, (R2);SET UP VECTOR TO RETUR 
1061 OdebHe O1O7He ;17abHe O107He MOV PC, =(R2); SAVE PC 
1063 9 016706 MOV  #24,SP  ;LOAD UP STACK POINTER 
Ibe posess Blow 1736s0 
thee footes bata | 10441 MOV RY, -(R1);LOOK FOR END OF 
106 OOees4 O10! Fea ter BIC "Rl THEN DROP 10 Xx7s2 
1068 OOSEED oLiite He? L168 Loo: Hoy alma" 
ites GOES teen tieeees GpeeiG NC (R4)’ — ;START DEVICE 
1070 OOSEEd 1 i 17 a56 105714 RORWAT: TSTB (RY) ;WAIT 
tort pose 1ie4ie fi7seee Lieaie L, BORWAT 
1072 BOSE? DOORS $1736 AROS MOVE  2(R4),(R2);SAVE THE DATA 
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DZBMDG.P11 ROM CONTENTS TABLES 
1073 72 :173672 0 I (R1) 
1074 oases [>tee7 173674 13887 CMPB 3s Re, #375 
1075 676 173676 000375 ' 
oe fee dues time jee tA. 
1859 nie Rigt 1535 ApREE tip (Re) ‘ 
1079 O02 999996 °173706 O00000 ;THIS AREA IS UNUSED 
1080 00271 >] 000000 +:THIS AREA IS UNUSED 
1081 : ‘THIS AREA IS UNUSED 
1082 : 000000 :THIS AREA IS UNUSED 
1083 “THIS AREA IS UNUSED 
1084 “THIS AREA IS UNUSED 
1085 THIS AREA IS UNUSED 
1086 IS AREA IS UNUSED 
1087 IS RED 1S UNUSED 
1088 TS ARER IS UNUSED 
1089 THIS BREA 5 UNUSED 
1090 IS AREA IS UNUSED 
1031 THIS BREA IS UNUSED 
ibaa t2 AREA 12 UNUSED 
1094 THIS AREA IS UNUSED 
1095 IS AREA IS UNUSED 
1096 HIS AREA IS UNUSED 
1097 1S AREA IS UNUSED 
1098 IS AREA TS UNUSED 
10993 IS AREA IS UNUSED 
1100 IS AREA IS UNUSED 
1101 IS AREA IS UNUSED 
1102 1S AREA IS UNUSED 
1103 ‘THIS AREA IS UNUSED 
1104 THIS AREA TS UNUSED 
1105 ‘THIS AREA 18 UNUSED 
1106 *THIS AREA IS UNUSED 
1197 002776 END. YB: 
1108 002776 000000 ;173776 O00000 ;THIS AREA IS UNUSED 
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YC: 
THE FOLLOWING 1000 LOCATIONS ARE 
3A se ae OF THE ROM PROGRAM 
;FOR THE BM873YC. THE FIRST 400 ree 
;ARE AN EXACT COPY OF THE BMB73YA. THE 
sREMAINING 400 LOCATIONS ARE 
THE DDCMP BOOTSTRAP ROM PROGRAM. 
:1T IS ae FOR COMPARISON TO 
ACTUAL On AND FOR REFERENCE. 
;173000 .=173000 iF Re Ene BpOres eye Bp Orca TH 

THT hoe "REPLACE FOR _THE RESTART MODULE M873. 

UNCTIONALLY Efe THE Sg ROMS: 

inrs 92-YA - PAPER TAPE BOOTSTRAP FOR PC11,KL11 


p 
:M7S2-YH TALI CASSETTE BOOTSTRAP ROM 
oooo00 R0= 10 ;REGISTER DEFINITIONS 


b— b-- 9-2 pH -- b+ 


TUPUrUry PUTU — bo 0 pe 
WELW OW DO NOUS Wiue-O 


oO 
Oo 
Oo 
oOo 
oO 
<= 
xz 
£ 
rT) 
x 
£ 


%7 
177570 SR= 177570 ;PROCESSOR SWITCH REGISTER 


‘STARTING LOCATION FOR RF11 DISK 

003000 010702 ;173000 010702 AF11: MOV PC.Re ;SET POINTER TO PARAMETER LISTS 
003002 o00464 ;173002 gee BR OTHER ;TRANSFER TO SERVICE ROUTINE 
903004 177462 173004 177462 -WORD 177462 ; DEVICE WORD COUNT ADDRESS 
003006 00005 ;173006 aaa008 -WORD 5 ;DEVICE READ INSTRUCTION 

THIS IS THE STARTING LOCATION FOR i RK11 CONTROLLER 
003010 010702 3172010 010702 RK11: MOV PC.R2 ;SET POINTER TO PARAMETER LIST 
O0301e O00460 000460 R OTHER ; TRANSFER TO SERVICE ROUTINE 
003014 17740b +1 P30i4 177406 -WORD 177406 j DEVICE WORD COUNT REGISTER 
003016 000005 ;173016 000005 -WORD S ;DEVICE READ INSTRUCTION 


THIS IS & SPARE STARTING LOCATION. IT TRANSFERS TO ADDRESS 
CONTAINED IN THE SWITCH REGISTER. 
panes 013707 ;173020 013707 TRANSR: MOV a#5R,PC ;GO TO INDICATED LOCATION 


ne ee ae he Be he a a ee an ee be ae be ae ae ns Fame Be ne fern Be ae ne ae ne ew be bn hn hs ne ne Bans be ban bo Bao pw Pune Pn ho fas fe be pe fae Pan Pn pas pe 
et Sh A bt ata st eet ot pate ttetebtiet tpt ati itet edt pete 


= 0+ b-= bb b= 0 bb 8 0 = bb 0 8 2 0 = be ob 0 9 eb op he 


177570 —517302e 177570 
;NOTE 7740B4 AND 773224 ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 
THIS IS THE aH UP VECTOR REQUIRED FOR DEVICE AND 
003024 173000 ;173024 173000 POWER: .WORD R ;ADDRESS OF FIRST LOCATION IN ROM 
003026 O00340 ;173026 000340 - WORD a0 sPROCESSOR STATUS LEVEL 7 
‘THIS IS THE STARTING ADDRESS FOR TC11 Cpe nee) CONTROLLER. 
003030 010702 ;173030 010702 {C1l: “MOV PC,Re ;SET UP POINTER TQ PARAMETER LIST 
003032 O004e6 ;17303e 00046 BR TAPES sAND TRANSFER TO pint ree ROUTINE 
003034 177344 ;173034 177344 -WORD 177344 sDEVICE WM WORD COUNT ADDRESS 
003036 004003 3 173036 004003 -WORD 4003 FIND PREVIOUS BLOCK COMMAND 
003040 100000 ;173040 100000 -WORD 100000 tUSE A I T 
00304e 24000 i 173048 024000 «WORD 24009 ;USED AS ERROR pho Te OR TEST FLAG 
63 O03044% OO0044S ;173044 OOO44S BR OTHERX ;THEN TRANSFER TO NEXT ROUTINE 
64 003046 000005 $1 P30Me 000008 -WORD S sDEVICE READ COMMAND 
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1165 
1166 'THIS IS THE START LOCATION FOR TM11 MAGTAPE CONTROLLER 
1167 903050 010702 5173050 010702 THil:: “MOV PC Re SET POINTER TO PARAMETER LIST 
1168 b03052 OO041¢ 173052 O0041 16 ; BR TAPES : ’ TRANSFER i F IRST pRQUTINE ee 
1153 Reka? AZRAT? ifdshed AZeAG? HRB B66TS iy tee fe ui eon. ‘8 
Hie Gomes Tobe Hireee Tees BD flaca PeVie Peti 
ue ae 
1126 ppspes Appa ii 73bes 50041 BR Re peeY a ice ER PEERS BLT ccevice RIN 
1174 060011 ;173066 060011 .WORD 60011 igevice "FORUERD SPACE COMMAND 
1175 003070 000200 ;173070 o00200 “WORD 200 :SAME AS ABOVE 
1176 003072 100000 3173072 100000 “WORD 100000  ;SAME AS ABOVE 
1177 003074 000431 ;173074 000431 BR OTHERX :THEN TRANSFER TO READ/TRANSFER ROUTINE 
1178 003076 060003 15806 060003 .WORD 60003 *DEVICE READ COMMAND 
1180 STHIS IS THE START LOCATION FOR THE RP11 CONTROLLER 
1181 003100 010702 ;173100 010702 AP11: MOV PC NTER TO PARAMETER LIST 
118 3102 O00424 53173102 000424 BR OTHER TRANSFER TO TRANSFER ROUTINE 
1183 003104 176716 :173104 176716 -WORD 176716 § :DEVICE WORD COUNT REGISTER 
1184 03106 oO00005 +;173106 000005 , WORD S “DEVICE READ COMMAND 
1186 ‘THIS IS THE TAPE DEVICE SERVICE ROUTINE. 
1187 003110 010200 ;173110 010200 TAPES: MOV R2,RO GET ADDRESS OF PORAMETER LIST 
1188 003112 005720 :173112 005720 TST (RO)+ SKIP TWO WORDS FIRST TIME 
1189 003114 000005 ;173114 000005 TAPESx: RESET ‘RESET ALL DEVICES 
1190 003116 005720 :173116 005720 TST (RO)+ ?SKIP OVER BRANCH INSTRUCTION 
1191 003120 016201 ;173120 016201 MOV 2(R2),R1 3 THEN GET DEVICE WORD/BYTE COUNT ADDRES 
1192 003122 000002 ;17312e2 000002 
1193 993124 005311 31731204 005311 DEC dR1 SAND SET TO -1 
1194 003126 012041 3173126 012041 MOV (RO)+,-(R1) ;AND THEN ISSUE COMMAND TO DEVICE 
| 1195 003130 031011 5173130 031011 TAPWAT: BIT aRO aki say FOR DEVICE COMPLETION 
1196 003132 001 173132 001776 BEQ TAPHAT HANGING IN 
1187 003134 005720 :173134 005720 TST (RO)+ *AND THEN SKIP DONE FLAG 
1198 003136 032041 3173136 032041 BIT (RO)+,-(R1) i THEN TEST FOR ERROR 
1199 003140 O01 173140 001063 BNE ERROR’ RE IS_ONE 
1200 003142 O00110 5173142 000110 RETURN: JMP ORO SAND TRANSFER TO FOLLOWING INSTRUCTION 
1202 THIS IS THE STARTING ADDRESS FOR RC11 DISK CONTROLLERS 
1203 003144 010702 ;173144 010702 RC11: MOV PC,Re i961 U P POINTER TO PARAMETER LIST 
1204 003146 O00402 173146 o00402 BR OTHER RANSFER TO SERVICE RTN 
1205 003150 177450 ;173150 177450 .WORD 177450: DEVICE WORD COUNT REGISTER 
120 603152 o9000S :173152 o00005 “WORD 5 "DEVICE READ INSTRUCTION 
| 1598 THIS ROUT INE PERFORMS THE ACTUAL TRANSFER TO MEMORY OF DATA 
| 1209 GO31SY oO10200 ;173154 010200 OTHER: OV R »SET POINTER TO LIST IN RO 
' 4210 003156 005720 +;173156 005720 ROS ir *SKIP TWO WORDS FIRST TIME. 
| 211 003160 005720 ;173160 005720 OTHERX: ter (RO) SK IP PAST BR INSTRUCTION 
| ple 62 OO0000S 31731 ESE 
| 1213 OO3164 016201 5173164 016201 MOV 2(R2),R1 t OBTAIN DEVICE WORD COUNT ADDRESS 
' 1284 166 O00002 +;173166 000002 
| 1215 003170 012711 3173170 012711 MOV #-1000,9R1 ;THEN OBTAIN LARGE WORD COUNT 
| 1216 172 177000 +:173172 177000 
| JEz17 174 011041 3173174 011041 MOV QRO,-(R1) | ;AND PUT COMMAND TO DEVICE 
| Lele 003176 105711 3173176 105711 OTHWAT: TSTB ari “WAIT FOR DONE FLAG 
 ye1g 00 100376 +:173208 1003276 BPL OTHWAT "BY HANGING IN LOOP 
1220 G2 005711 +;173202 005711 TST aR THEN TEST FOR ERROR 
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1233 003220 

less 

1235 co3222 
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1537 

1238 

1339 

1240 003224 

1241 003226 

1342 

1343 
| 354 93230 
| 1245 O03232 
| 1346 O03034 
| 12 oss 
| {24B oo3=4D 
| Yp4S dogaue 
| 1350 Doseus 
| 7523 Spasep 
| 7525 ogee 
| {Bee Bbaee 
| ] D03260 

1 Kes 
| 3258 003264 
| 7259 O03c66 
| 260 903270 
| ¥e61 003872 
| lobe Soae7s 

tSe4 bosson 
| 1265 003302 
| 12be 003304 
«56 Bossi 

is 

1271 003312 

1272 003314 

1273 O033i6 

157e Dosaee 

1276 003324 
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100441 3173204 100441 
005007 ;173206 005007 


012704 173210 012704 
177560 :1732le 1°7560 
300449 3173214 40 
O17640 3173216 240 

3173217 037 
po2415 :173220 O15 

3173221 00S 
112024 3173222 O24 

°173223 ee 
sNOTE 773024 AND 773224 


ae 


ge 
a 


173000 173224 173000 
000340 3173226 OO0340 
ooso04 ;173230 o0S004 
012700 :173232 012700 
177500 ;: 177500 
popes «3123538 Boots 
stay $1 o Bio7at 
173216 3173244 173216 
012702 :1732% 012702 
000375 +:173250 000375 
112103 3173252 112103 
112110 3173254 112110 
10087 3173256 100907 
baisoe ity Sseo bar ere 
105202 3173264 105202 
100772 31 100772 
116012 31 116012 
-J po0002 
000771 3173874 000771 

He 

31 

133308 

a ecTti 

733 

733 


see . ewe 
a a er oad 


Begs 
oo 
a 


an — ;GOT PROBLEMS 
SAND TRANSFER TO ZERO 


'THIS IS THE STARTING ADDRESS FOR THE PC11 PAPER TAPE CONTROLLER 
Kill: MOV #177560,84 ;OBTAIN DEVICE ADDRESS 


BR CKDEV ;AND TRANSFER TO READER SERVICE ROUTINE 
gihiS IS THE CASSETTE DEVICE ge ABLE 
TABLE: .BYTE 240 ;COMPARE WORD NOT A COMMAND 

BYTE 37 S+RWD+G0 

-BYTE 15 : SPACE FORWARD BLOCK+G0 

-BYTE 5 ; READ+GO 

-BYTE 24 ;READ+ILBS 

-BYTE 224 “READ+ILBS+END FLAG 


ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 


‘THIS IS AN RODITIONAL POWER VECTOR ADDRESS REQUIRED BY DEVICE 
PowER2: .WORD RFI sADORESS OF BEGINNING OF BOOTSTRAP 
.WORD 340 *PRIORITY LEVEL 7 


THIS 1S. THE STARTING ADDRESS FOR THE CASSETTE DEVICE #0 
&goor: DEVICE NUMBER O IN 
RESTX: Sb 177500, RO :GET DEVICE ADDTESS 


RESTRT: RESET s ISSUE RESET INSTRUCTION 
V RY, ORO sLORO DEVIC WITH UNIT NUMBER 

MOV @TABLE,R1 GET ABLE OF INSTRUCTIONS 
MOV #375,Re sAND LOAD UP TRANSFER COUNTER 


MOV8 (R1)+,R3_ ;THE LOAD UP COMPARATOR 
LOOP1: MOVS (R1)+;dRO ;LOAD DEVICE REGISTER WITH COMMAND 


LooPe: B11 R3, ORO sHAS COMMAND COMPLETED 
Q LOOPe = NO 
INCB Re ENT HCRENENT ADDRESS CTR 
OOP1 ie IF NEGATIVE, GET ¢ COMMAND 
MOVB 2(RO), aR2 
BR Lope 30 GET ANOTHER BYTE 
DONE: TST aRO ; ANY Ice ERRORS 
BMI RESTRT YES 
Re *CLEAR OMPARE ADDRESS AND TRANSFER ADDRESS 


CMPB R3, aR2 HIT AUST & MUST BE 240 
ERROR: aM aR2 NORMAL HERE CERTEGY AND oRROR FOR BULK STORAGE 


‘THIS IS THE STARTING LOCATION FOR THE PC11 CONTROLLER 
PC11: MOV #177550,R4 ;LOAD DEVICE ADDRESS 


CKDEV: RESET ;KILL ALL DEVICE ACTION 
MOV #1£0000,R1 ;THEN SET UP MEMORY TEST LIMITS 
MOV #6,Re ;AND SET UP POINTER TO TIMEOUT LOCATION 


ae ee ee a ee ree 
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1277 003326 000006 ;173326 000006 , : 
1278 003330 Ole7i2 ;173330 Ole71e2 MOV 8340,dR2 § ;AND SET UP VECTOR TO RETURN TO NEXT 
Ha} Ss BORG 1s EE oy cre) NE THE P 
H L, ~ (Re H 
128) posse pi bece ccs Bios ae MOV #24, SP "AND LOAD ft: STACK POINTER 
003340 000024 ;173340 000024 
iss 003342 910441 3173342 O10441 MOV R4,-(R1) sAND LOOK FOR END_OF MEMORY 
284 003344 O40601 ;173344 040601 BIC SP.R1 “THEN DROP TO XX775 
285 bo3346 9101 3173346 010111 MOV RL. ORI ‘AND STORE IN a SELF 
ese 11102 317 011102 LOOP: Mov ari,Re : THEN LOAD ADDRESS FOR DATA INSERTION 
287 003352 005214 ;1733S2 005214 INC ORY 5 AND START DEVICE 
288 003354 108714 3173354 105714 RDRWAT: TSTB aRY “THEN WAIT FOR CHARACTER BVAILABLE 
289 003356 1 173356 100376 BPL RDRWAT "HANGING THERE IF NECCESSARY 
290 003360 116412 ;173360 116412 MOVB 2(R4),dR2 ;STORE AWAY DATA BYT 
291 003362 000002 ;173362 000002 
292 003364 005211 ;173364 005211 INC @R1 
233 003366 120227 ;173366 120227 CMPB R2,#375 §;HAS BRANCH OFFSET BEEN STORED 
|} 1284 003370 penese : 173370 000375 
29S 003372 001366 ;173372 001366 BNE LOOP NO 
296 003374 105222 3173374 10Se2e2 INCB (R2)+ “YES, ALL DONE 
Bald 003376 OO0142 ;173376 00142 JMP -(Re) : THEN ot bone TO RTN 
| 299 THE FOLLOWING 400 LOCATIONS 
309 ?Q REPRODUCTION OF THE DDCMP BOOT- 
| 130) :STRAP ROM. IT IS HERE FOR COM- 
' 4302 *PRRISON TO THE ACTUAL ROM AND 
| #3 :FOR REFERENCE. 
308 COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD,MASS. 01754 
| a7 THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER, SYSTEM AND 
| 1309 BE COPIED (WITH INCLUSION 


THE abot hay IN THIS DOCUMENT IS SUBJECT T 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CO NSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY DEC. 


VERSION O01 
STUART WECKER 01/22/75 
DIGITAL EQUIPMENT CORPORATION 
COMPUTER NETWORK FACILITIES 
DOWN-LINE LOADING PROGRAM 
OADS COMPUTER MEMORY FROM DATA SENT OVER 


AORTA A CORRUNTCATI ONS LINK. IT SENDS AND RECEIVES 
MESSAGES IN DOCMP BOOT FORMAT. THE PRIMARY BOOT ONLY 


WIWOIWGIIIG It 
0 b= 0-2 b—« & 2 2 Oe pe 
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LUADS A SINGLE BLOCK, THE SECONDARY BOOT, WHICH 
THEN REQUESTS AND LOADS THE DESIRED PROGRAM. 


CURRENT VERSION DDCMP: 3.0 - MAY 7,1974 

THE BOOTSTRAP MESSAGES ARE OF THE FORM: 

SYN, SYN, OLE,CNT,F,S,FILL,FILL,ADOR,CRC1,DATA,CRC2 
ALL ITEMS ARE 8-BITS LONG UNLESS OTHERWISE SPECIFIED 


SYN-THE SYNC EK RameetEnee 5 Na 377 
DLE-THE BOOT HEADER CHARACTER-OLTAL 220 

CNT-THE 14-BIT sg FIELD-LENGTH OF DATA FIELD 
F-THE F NK CONTROL 


T -FOR PT. TO PT.=1 

CRCI-THE 16-BIT CRC-16 COMPUTED ON "it THROUGH ADDR 

DATA-THE BOOT DATA AS FOLLOWS: 
CODE, INFO 

ONLY THE FOLLOWING CODES ARE USED BY THE 

CODE=10 REQUEST SECONDARY PROGRAM 

INFO=DEVICE TYPE,STATION ADDRESS 

DEVICE TYPE- 2, DL=4, DO=6 

STATION ADORESS=! 

CODE=0 PROGRAM LOAD WITH TRANSFER ADDRESS 

IN O=BLKNO, BLK LDADOR, IMAGE DATA, TRANS ADDR 


BLOCK LDADDR=6 

TRANS ADDR=6 

eee ope A = TO 10. 

> eT BYTES-32 BITS-LOW BIT FIRST 

RCo THE 16-5IT CRC-16 COMPUTED ON THE DATA FIELD ONLY 


OPTION SWITCHES: 
DEVICE-DP11,DU11,DL11 
CRC-KG11,SCRC 


SPSS SESE SS OS SESE SS SESE SE SESE SE SESE SESE SESE SE DESEO GE SESE SE OE EOE SESE Os 08 28 et os ete 


REGISTER DEFINITIONS 
; en OFGE CER REDRESS 
; Bapoas Abas te ce (sh che 
: 000003 R3=%3 COFTUARE ¢ 
; 000004 R¥=%4 PBLOCK CHAR REouNT 
000005 RS=%5 :CRC CALC TEMP 
DO0008 sP=% STACK ADDR 
: 000007 PC=x :COCATION COUNTER 
; LITERALS 
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; STATION ADDR 

:SWITCH REGISTER ADOR 
:SYNC CHARACTER 
;DDCMP DLE CHARACTER 


THE STACK IS USED AS FOLLOW 
STAGE: ia adele RH AH 
START OF BOOT PROGRAM 
STARTI-DEVICE UNIT O-NORMAL peur 


START2-USE_ SWITCH REG AS DEVI 
I.E. #0-0,#1-10, #2-20 


oun tion 


I 
DISPLACEMENT 


*=1734 00 


STARTI: MOV (PC)+,RO oe ZERO VALUE TO RO 
STARTe: CLR R EAR RO 
S RESET SYS.MEM MGT, ETC... 
v #17776,SP iB ACK AT 4k-2 


DEVLOP: 


SNOREQ: 


FIND THE DU-11 IN THE FLOATING ADDRESS SPACE 


MOV PC Re ; CURRENT PC 
ADD eDEVTAB-.,R2 § ;DEVICE TABLE ADDR 

MOV #6,R3 ; TRAP PS ADDR 

CLR (R3) ;CLEAR NEW PS 

MOV R2, -(R3) ; TABLE ADDR TO Loc 4 

SUB R3, (R3) *SUB TO R 
DEC *LEAVE CNT 3 FOR LOOP 

MOV #160010,R! :START SEARCH ADDR 

TST (R1) ;IS DEVICE THERE 
MOVB  (R2). RY ‘DEVICE INCREMENT TO R3 
RD RY, Rl ; UPDATE TO NEXT DEVICE 

IC R4,RI Se asi , 

ST ifest veoh DONE 
aut ‘eae T SWITCH REG USE 
BNE SNORE Ay HUE 
ADD DeSSWR,R1 

SET UP DEVICE FOR OUTPUT 
MOV #6, (RL) DATA TERM RDY AND REQ TO SEND 
MOV #36000+S$SYN,2(R1) ;SET SYNC REGISTER 































1445 003500 032711 ;173500 032711 L3: BiT #20000, (R1) :TEST CLEAR TO SEND 

i i faats GEDA 

144 173504 O01 BEQ L3 :NOT YET 

1448 OO250S O22121 3173506 O221e1 CMP (R1)+. (R1)+ *MOVE PTR TO XMIT TSR 

1449 303519 052711 3173510 05271 BIS #20, (R1) :TURN SEND ON 

1460 00351 pe5020 173512 00002 

abe : SEND SECONDARY PGM REQUEST MESSAGE 

1454 003514 010700 ;173514 o10700 ° MOV PS.RO sCURRENT PC 

1455 003516 062700 062700 ADD #ROMSG-. ,RO REQUEST MSG ADOR 
ibaa MOV #ROMSGE-ROMSG,R4Y ; COUNT 


Poth 


L4: MOVB (RD) +,2(R1) CHAR TO XMIT REGISTER 
LS: TSTB (RL) ;DONE YET ? 
i is :NO 
RY !DECREMENT COUNT 
L4 ONCE MORE 
BIC —«- #20, (RI) :DROP SEND 
CMP = =(R1),-(RL) RESET PTR TO RCV CSR 


: GET SECONDARY PROGRAM 
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Be 
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Oo hb fF De Poe f= pn Be B= Bae Ps 
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“BIC #20, (RL) SCLEAR SEARCH SYNC 
MOV #422, (RL) ;SET FOR CLEAR AND STRIP SYNC 
poso03 43173660 00S003 CLR oR SCLEAR CRC VALUE 
GET MESSAGE HEADER AND CHECK IT 
MOV #1, RO SLOAD HOR AT LOC. 1 
#8. ,R4 ;BLOCK COUNT 
JSR PC, GET ;GET HEADER 
;CHECK HEADER CRC 


R3 
BNE GETPGM 0 GOOD 
CMPB =s_s« #6, BSSTADR CHECK FOR MY ADDR 


042711 
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GETPGM ;NOT_MINE 
081, #SOLE 31S THIS A DLE MSG 


sat 


BH b= be hb b> Ges Bs fe B= B= > 
oe od 
orcVMo 
ii 


“NN 
& 


: 


BNE SNOREQ ;NO, ASK FOR ONE 
GET DATA BLOCK 
MOV ase, RY 


: 
: 


;DATA FIELD LENGTH 


en ee ee ee ee ee ee ee 
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042704 +:173626 04270 
140000 5153050 TupooG 
122424 3173632 122424 
00500 :173634 O0So00 
004767 :173636 004767 
000014 173640 000014 
905703 :173642 00570 
001316 $173644 001310 
105713 173646 105713 
061 3173650 001306 
000137 :173652 000137 
000008 3173654 000006 
; 173656 
105711 15 105711 
t HI73E88 10s ah 
e711 5173662 ico 11 
00 i17 3664 000400 
116110 $173666 116110 
000002 173670 000002 
: 120001 
012705 ;173672 012705 
000010 173674 00001 
il * 173576 rei 
000241 3173700 00024! 
006003 3173702 006003 
103003 51 103003 
teas tear 
1 2173710 1 
000410 i17371¢ 000410 
ceed 3173716 rend 
Oreo, ftea7Se senocT 
bose * 173724 ogost6 
feoonk 175738 Jeon) 
g 
Geet ilfarae Osean 
ii? 
Ss Lean BL 
001345 217 1345 
-1 000207 
113226 ;173746 113226 
13226 3173750 11322 
:173752 O22 
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Bic #140000, R4 sMASK OFF S,F BITS 
CMPB ss (R4) +, (R4) + :ADD 2 FOR CRC 
CLR RO "LOAD INTO LOCATION O 
JSR PC, GETI GET DATA BLOCK 
TST R3 ;CHECK DATA FIELD CRC 
BNE SNOREQ :NO 
TSTB ss (R33) ; CHECK CODE IN LOC 0 
BNE SNDREQ :NOT PROGRAM LOAD 
IMP AY | : TRANSFER TO SECONDARY PGI 
GET A BLOCK AND COMPUTE CRC 
Act: 
GETI: 
TSTB = (R11) 15 DEVICE DONE YET 
BPL GET 
BIC s$STRIP, (R1) NO Tote lp SYNC 
MOVB = 2(R1), (RO) ;STORE IT 
: CRC CALCULATION ROUTINE 
PoOLY=120001 ;CRC-16 POLYNOMIAL 
‘ MOV #8. ,RS ;BYTE LENGTH 
MOVB  (RO)+,Re2 ;CHARACTER TO ADD TO CRC 
CRCLOP: CLC CLE 
ROR R3 ‘SHIFT OLD PARTIAL 
BCC L10 IF CLEAR CHECK CHAR 
ROR Re SHIFT CHARACTER 
BCC Lil ;XOR POLY 
BR Li2 *NEXT BIT 
L10: ROR Re :SHIFT CHARACTER 
BCC Lie *NEXT BIT 
Lil: MOV #POLY, -(SP) "POLY TO STACK 
BIC R3, (SP) ;NOT PARTIAL AND POLY 
BIC #POLY,R3 :NOT POLY AND PARTIAL 
BIS (SP)+,R3 ;POLY XOR PARTIAL 
Li2: DEC RS *DECREMENT BIT COUNT 
BNE CRCLOP * ONC 
DEC RY *DECREMENT COUNT 
BNE GET : MORE 
RTS PC * RETURN 
: SECONDARY PROGRAM REQEST MSG 
ROMSG: .BYTE SSYN,SSYN,SSYN,SSYN 


-BYTE SOLE,4,0,0,0,1 
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1557 
1S58 
1$59 


Binnie 


ae 


2 b+ 0-2 b 6-2 = p= & <= b+ 6-2 0 9-2 pp ope 


Batol sont ok 


003754 
003756 
pear ee 

762 


003764 





000000 
000400 
00SS 
1010 
009001 


030242 


122243 
000002 


007407 


YALE 





7(732) 


3173754 000000 
:173756 000400 
:173760 OSO0SS 
:173762 001010 
2173764 000001 


173766 030242 


3173770 1l2e243 
:173772 000002 


317377 
5153794 007407 


END.YC: ° 


003407 


3173776 003407 


: 174000 
: 173400 
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ENTS TABLES 


NoDEV: 
Ronsce: 
DEVTAB: 


END: 


HO3 





-BYTE 55,120 

-BYTE 10 ;REQ SEC PGM CODE 
pilin @ :DEVICE CODE 
-BYTE $STADR s STATION ADDR 
-BYTE a ;FILL 


BYTE FOR STADR= 
NOTE: NODEV AnD DEVTAB mui BE IN THAIS ORDER 
DO NOT SEPARATE THEM 


EVEN 
cnPe (R2)+, -(R3) sINC PTR-DEC CNT 4 


RETURN FROM TRAP 
;END OF MSG-USE JUNK AS PADS 
OJ-11 


atm : 

BYTE 17 ;DH-11 

-BYTE 7 300-11 . 
-BYTE 7 ;DU-11 

-END START1 


es 


a a nT 


1580 
1581 
$82 


1600 


5 


Baume ok 


ey ey ey rd ed ed ed ed ed ed ed ed ed ed ed eed ed eed ed ed et ed ee ee 
KNOMMOOMMMam 
0 bb bb ee 
WONMWUI CUNO 


SERENE 


o 
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: 


MAP. YD: 
THe FOLLOWING IS A REPRODUCTION 
THE OGRAM 


ae 


000300 
009001 
000002 


a3 


fas 


eeeasicee einer: 
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BM873YD. 
C 
- KLIQ (PDP-11) 2S& WORD BOOTSTRAP ROM VERSION 2(17) MACY11 &7{657) 18-DEC-74 11:59 PAGE 1 


; my CODE IS TO BE BLASTED INTO PROMS: ON THE ere? 0 BOARD. 
WRITTEN BY DAVID M. ROSENBERG OCTOBER 1974 
‘REGISTER DEFINITIONS 





RO=“0 ;GENERAL PURPOSE REGISTER 0 
Ri=%1 *GENERAL PURPOSE REGISTER | 
Re=%2 *GENERAL PURPOSE REGISTER 2 
R3=%3 GENERAL PURPOSE REGISTER 3 

=%4 ; GENERAL PURPOSE REGISTER 4 

=45 *GENERAL PURPOSE REGISTER S 
SP=46 :STACK POINTER REGISTER Rb) 
PC=%7 :PROGRAM COUNTER (REGISTER R7) 

;SYMBOL DEFINITIONS 
PS=177776 ;PROCESSOR STATUS REGISTER 
SWR=177570 “FRONT PANEL SWITCH REGISTER 
PRO=0%40 ‘PRIORITY LEVEL O 
PR1=1#40 *PRIORITY LEVEL 1 
PR2=2440 “PRIORITY LEVEL 2 
PR3=3#40 *PRIORITY LEVEL 3 
PR4Y=4#40 *PRIORITY LEVEL 4 
=S#40 sPRIORITY LEVEL 5 
= o + PRIORITY LEVEL 8 

BITO=000001 
BITi1=000002 
8173000010 
BI Ta=-000020 

1TS=000040 

i 100 
81792001000 
Buen 

17112004000 
BIT12=010000 
BIT13=020000 
BIT14=040000 
BIT15=100000 


oe een ee  - +  ee  ee 























i, — 
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DZBMDG.P11 ROM CONTENTS TARLES 

1631 ;BM873-YD - KLIO (POP=11) 2&6 WORD BOOTSTRAP ROM VERSION 2(17) MACYIL 27(657) 18-DEC-74 11:59 PACE 3 
163 :BM873-YD.P11 BUTTON #1 - BOOTSTRAP USING THE PDP-11 SWITCH REGISTER 
16 
16 ; 173000 ROMORG = 173000 ;SET ROM ORIGIN TO 773000 
1638 : 173000 . 2ROMORG :BM873-YD OCCUPIES 773000-773777 
1638 004000 033727 ;173000 033727 BUTONI: BIT J#SWR, #BITO :IS RIGHTMOST BIT ON? 
1639 004002 177570 :173002 177570 
1640 004004 000001 ;173004 000001 
1641 004006 001010 ;173006 001010 BNE LOWBIT -IF THE BIT IS ON, BRANCH 
1642 OO4010 013707 °173010 013707 MOV JRSWR, PC : JUMP TO THE ADDRESS IN THE SWITCH REGISTER 
1643 OO040l2 177570 :173012 177570 
tea sWITHOUT HAVING TOUCHED ANY OF RO - Ré 
1646 OO4O14 111704 ;173014 111704 BUTON3: MOVB (PC),RY sRY = 1 INDICATES THAT BUTTON #3 WAS PRESSED 
1647 004016 005001 ;173016 005001 CLR Ri :SET UNIT NUMBER TO ZERO 
1648 004020 005005 ;17302e0 005005 ¢LR RS ‘CLEAR “LOGICAL SWITCH REGISTER” 
1649 004022 O000424 3173022 o00424 BR TCBOOT :DO A DEFAULT BOOT STRAP FROM DECTAPE 
1651 004024 173000 ;173024 173000 .WORD  ROMORG,PR7 
165 004026 000340 ;173026 000340 
1654 004030 013701 ;173030 013701 LOWBIT: MOV deSWR,R1 *R1 IS A COPY OF THE SWITCH REGISTER 
1355 004032 177570 3173032 177570 
1656 OO4034 106301 ;173034 10630! ASLB sR sLEFT-ALIGN SPEED FIELD IN RIGHT BYTE 
1657 004036 122701 3173036 122701 CMPB =s-#16*20,R1 IS THE SPEED 16 OR | 
1658 OO4040 O00340 ;173040 000340 
1659 04042 101404 :173042 101404 BLOS  UNITNO sIF SPEED IS 8 oR 17 BRANCH 
660 OO4O44 122701 3173044 122701 CMPB 40s«#3#20,R1 -IS THE SPEED 0, 1, OR 
1661 OO4046 5500 :17204%6 000060 
ig62 OO40S0 101001 ;1730S0 101001 BHI UNI TNO ;IF THE SPEED 7 0, 1, OR 2, BRANCH 
1663 O040S2 005001 ;173052 o0S001 CLR Ri : SPEED pe aes UNIT NUMBER = 0 
1ebH 004054 000301 :173054 000301 UNITNO: SWAB Ri *MOVE UNI R TO BITS O-2 
1666 ; IT IS POSSIBLE TO MANUALLY SET THE DESIRED BOOTSTRAP UNIT NUMBER 
1667 O THE RIGHTMOST THREE BITS OF Rl, SET THE POP-11 FRONT PANEL 
1668 SWITCH REGISTER, AND THEN JUMP INTO THE ROM CODE AT THIS POINT. 
1670 OO40S6 042701 ;173056 042701 mm #1€7,R1 ; ISOLATE UNIT NUMBER IN R1 
1671 04060 177770 3173060 177770 
672 OO4062 013705 ;173062 013705 MOV JeSWR, RS 3RS IS NOW THE “LOGICAL SWITCH REGISTER” 
1673 OO4064 177570 7173064 177570 
1674 OO4065 7173066 005004 CLR RY = 0 INDICATES THAT BUTTON #1 WAS PRESSED 

| 1675 004070 105705 ;173070 105705 TSTB sR +B touL p WE BOOT FROM DECTAPE OR RH11/RPO4? 
1676 004072 100507 ;173072 100507 BMI RPBOOT IF BIT 7 WAS ONE, BRANCH OFF TO THE RH11/RPO4 
1677 “OTHERNI Se, FALL THROUGH TO THE DECTAFE 

| 


1678 ;BM873-YD = KL1O (POP=11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACYI1 27(657) 18-DEC-74 11:59 PAGE 4 
167 :8M873-YD.P11 DECTAPE BOOTSTRAP AND DUMP ROUTINES 


eras Tou 17344 Ett RECTAPE | WORD COUNT REGISTER 
oo00de TCRNU #2 1 READ BL BLOCK NUNBER® FUNCTION 
Bapoiy TeNRT ey te RITE DATA” FUNCTION 
004000 4000 : MOVE DECTAPE IN REVERSE DIRECTION 
1689 - BOOTSTRAP (FROM DECTAPE) PARAMETERS 
: D256 WORD COUNT FOR THE SECONDARY BOOTSTRAP 
631 WHICH END OF THE DECTAPE (0 = FRONT; 1 = BACK) 
1693 DUMP (TO DECTAPE) PARAMETERS 
; tess 2 ;HORD CO 


UNT FOR THE CORE DUMP TO DECTAPE 
WHICH END OF THE DECTAPE (0 = FRONT; 1 = BACK) 


nundowe 


weweer @¢ eeee 


os bs bash 
ou 
“. 


000400 TCBWDC 
000000 


~ 
o 
wo 
~~ 
oH 
8 
= 
oOo 

wou 


~ 
o 
2 
oO 
~J 
So 
oO 
Oo 
“4 
oO 
oOo 
S 
oO 

un 


+ GENERAL (eooTsTREP AND DUMP) DECTAPE PARAMETER 
ip20 sNUMBER OF REIRIES IN CASE OF ERROR 


-~ 
o 
3B 
: 
~ 
cn) 
za 
par) 
we) 
~< 
iT 


oe 004074 012700 Sa Cierte TCBOOT: MOV ec TCBENDNTOREV> ! TCRERD!TCGO, RO ;SET UP DATA-TRANSFER COMMAND 


1 
1701 004076 O00005 :1 000) 
170¢ 004190 d1e7de Ht OC : MOV #-TCBWDC, Re ;SET WORD COUNT TO 256 (512 BYTES) 
1704 004108 012703 ; 173 108 012703 MOV #<<1-TCBEND> #TCREV> ! TCRNUM! TCGO, R3 ;SET UP POSITION COMMAND 
17 904119 aa *1 ¥ 000301 SWAB. Ssé@RRiL sBRING UNIT NUMBER INTO THE LEFT BYTE 
ry 11 103 3173112 050103 BIS R1,R3 ;PUT IT NUMBER INTO POSITIONING CORMMAND 
1708 OO4114 050100 :173114 950100 . BIS R1-RO spur UNIT NUMBER INTO ‘DATA-TRANSFER COMMAND 
1708 004116 o1e701 j173116 o12701 TCSTRT: MOV Bree, Rl 1 NOW POINTS TO TC11 WORD COUNT REGISTER 
ii boule 012706 i 1731¢2 012706 TCLOOP: MOV #TCRTRY, SP nate ter RETRY COUNT. IN SP 
BUS Ck a a 
1715 poate ese tests Ape sbe Bre SP *DECREMENT RETRY Re COUNT 
1716 OO4134 100002 ;173134 100002 BPL TCRSET *BRANCH IF RETRY COUNT NOT EXHAUSTED 
1747 041 36 900000 5173136 000000 TCHALT: HALT ‘epee pRETRY COUNT, IS EXHAUST ED. FOR R DECTAPE OPERATION 
17 142 *173142 TCRSET: RESET proche ss S Be XT TRY : 
1o48 peat dg steer tat dG yur MOV R3,-(R1) ae ata rit OPERATION f 
1758 poaiep DB ae 5173108 MB, TCMALT: BP. (Rl) tT E3p iNT AN CEE OR" IS DETECTED 
1755 Bpatee 21 it ysieo ApOsze TST (R1)+ :MAKE R1 POINT TO THE WORD COUNT REGISTER 
Ze bows 08761 5173154 008761 TST -4(R1) IS THE ERROR “ENDZONE”? 
1726 OO4160 100362 173160 100362 P BPL TCBGIN ;IF NOT, BRANCH BACK TO TRY AGAIN 
1727 OO4162 Ol0e2ll 3173162 01021! MOV Re, (R1) -SET UP’ WORD COUNT FOR DATA-TRANSFER 
1728 OO4iE4 01004) i173164 010041 MOV RO. -(R1) sINITIOTE I THE DATA-TRANSFER OPENRTTON 
1729 004166 105711 ;173166 105711 TCDONE: TSTB (RI) FOR “DONE” 
1730 004170 100376 ;173170 100376. BP TCDONE “LOOP UNTIL THE DONE" BIT SETS 
1731 004172 005721 3173172 21 TS (R1)+ ‘HAS AN “E TECT ED? 
004174 100754 :173174 100754 BMI TCBGIN IF SO, BRANCH BACK AND TRY AGAIN 
135 004176 005741 :173176 005741 TST -(R1) "MAKE Rl POINT TO THE ROnRANE REGISTER 
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Deng. Pll ROM CONTENTS TABLES 
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OZBMOG.P11 ROM CONTENTS TABLES 








Prime at COMPLETION OF mh “NON-READ” OPERATION 


4 
1739 O042le 000000 ;1732le BOOT fesToP: 
TCSTOP :50 THAT PRESSING ° CONTINUE” WON'T GO ANYWHERE 


1740 OO4214 900776 3173214 


173s Bbiebe 122700 | 1/0 12 123700 HE BICREAD! TCGO, RO ; tas TH RNORMAL aD” OPERATION? 
S505 SRADU i feasts iY o: SNP ACBL) iNT) Popol 
; HALT a(PC)+ P=11 LOCATION ZERO 
SR 


em an ee eee oe ne eee ee 


ee: 7a, 




















MO3 
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DZBMDG.P11 ROM CONTENTS TABLES 
1741 :8M873-YD - KLIO (PDP-11) 256 ORD BOOTSTRAP ROM VERSION 2(17)  MACYL1 27(657) 18-DEC-74 11:59 PAGE 5 
i7ae :BM873-YD.P11 DECTAPE BOOTSTRAP AND DUMP ROUTINES 
1744 904 37 TCOUMP: MOV RO, JHROTOR? -SAVE RO IN PDP-11 MEMORY LOCATION 40 
tode © BeusSR BARES 3153548 BaRRae 
176 004222 O00402 ;173222 noouce BR TCCONT ;BRANCH AROUND REQUIRED INTERRUPT VECTOR 
1748 004224 173000 ;173224 173000 .WORD  ROMORG, PR7 
1749 004226 000340 ;173226 000340 
1751 004230 010700 ;173230 010700 TCCONT: MoV PC.RO ;USE RO FOR A SUBROUTINE RETURN RODRESS 
1752 OO4232 OO0410 :173232 00410 BR REGSAV -GO TO THE “REGISTER SAVING” SUBROUTINE 
1753 004234 012700 3173234 012700 MOV Re FCOENDATCREV> ! FeNRIT? TC60, RO ;SET UP (WRITE) TRANSFER COMMAND 
1754 004236 OO401S 3173236 oOo4o15 
1755 o04240 Ol 708 *1 $40 01270 MOV #-TCDWDC, R2 ;SET WORD-COUNT TO 28K WORDS 
1756 O04S42 11 1732042 11000 
1757 OO444 012703 ;173244 012703 MOV #<<1-TCDEND> #TCREV> ! TCRNUM! TCGO, R3 ;SET UP POSITION COMMAND 
1758 O04246 000003 :173246 000003 
1759 O042s0 O0S5005 ;173250 o05005 CLR RS sCLEAR “INDEFINITE RETRY" BIT 
1760 004252 000721 :173252e 000721 BR TCSTRT ‘BRANCH INTO DECTAPE ROUTINE 
1762 
ies 
1765 ; THE FOLLOWING SUBROUTINE IS USED TO SAVE THE PDP-11 GENERAL REGISTERS 
1766 : IN PDP-11 MEMORY LOCATIONS 40-57. 
1768 ; THE CALLING SEQUENCE IS AS FOLLOWS: MOV RO, J#ROTOR? 
1769 : MOV PC’RO 
1770 : BR RECCAV 
1771 : RETURN HERE 
i772 


1773 O042S4 010137 3173254 010137 REGSAV: MOV R1,a#ROTOR7+2  ;SAVE Rl IN MEMOTY LOCATION 42 
004256 00004 e 


1774 @ ;173256 00004 

1775 04260 012701 ;1732e60 012701 MOV #ROTOR7+4,R1 ;R1 NOW POINTS TO MEMORY LOCATION 44 

1776 OO4%ebe 3173e6e O00044 

1777 O04e64 010e21 ;173c64 01022) MOV Re, (R1)+ ;SAVE Re IN MEMORY LOCATION 44 

1778 OO04e66 010321 ;17 010321 MOV R3,(R1)+ ;SAVE R3 IN MEMORY LOCATION 46 

1779 004270 O104e! ;173270 Bi best MOV RY, (R1)+ ;SAVE RY IN MEMORY LOCATION SO 

1780 O04 1 3173272 010S5e1 MOV RS,(R1)+ ;SAVE RS IN MEMORY LOCATION S 
O04e2 1 ;173274 010621 MOV SP, (R1)+ ; VE SP IN are LOCATION S4 

1782 004276 1 3173276 010021 MOV RO, (R1)+ ;SAVE PC_IN MEMORY LOCATION S6 

1733 0043 0160 ;173300 000160 JMP 2(R0) RETURN TO THE CALLING ROUTINE 
004302 0002 ;17330e 000002 
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ENOS-YD.PLI 


bobobe 


000034 
040000 


000071 
090000 
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- Oe Bod 16 18a WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE & 


RH11/ 


RP 


RPDF MT 
RPOWDC 
RPDCYL 
RPOTR 

RPDSt 
111704 
005005 


005001 
012700 


050 
012701 
176700 


BIS R1,RO 
RPSTRT: MOV #RPCS1,R1 ;SET R1 TO THE LOWEST ADDRESS USED BY THE RH11 


NO3 


AND DUMP ROUTINES 


roe 
~ 
o 
co | 
oO 
oO 


SPN y ROR atid MERE 
ISTER 2 


R TUS_R TER 
OFFSET TQ RHIL/ RPM OFFSET REGISTER (CONTAINING FMT22) 
OFFSET TO RHI1/RPO4 DESIRED CYLINDER REGISTER 


4 ila ERROR” (31T IN RPCS1 

3 qn ASSBUS CONTROL 3US_PARITY ERROR” BIT IN RPCS1 
1 antes AVAILABLE” BIT_IN RPCS1 

S TTENTION ACTIVE” BIT RPDS 

4 COMPOST TE ERROR” BIT IN RPDS 

2 ;"FMT22” (16-BIT WORDS) BIT IN RPOF 


mM BDOOOOW Wwuw--om 


;READ-IN PRESET 
;WRITE DATA 
;READ DATA 


a aT FORMAT (0 = 18-BiT WORDS; 2 = 16-BIT WORDS) 
DeS& ;WORD COUNT FOR THE SECONDARY BOOTSTRAP FROM THE RPO4 
D406 ;BOOTSTRAP CYLINDER NUMBER 

;BOOTSTRAP TRACK NUMEER 

;BOOTSTRAP SECTOR NUMBER 


;DUMP FORMAT (O = 18-BIT WORDS; 2 = 16-BIT WORDS) 
2867e ; WORD ng A THE CORE DUMP TO THE RPOY 


tD 
tD409 YEIND NUMBER 

THE Foe PBHITNG WO REST ENFENTS PUT THE DUMP AT THE VERY END OF THE CYLINDER 
ipig-«< REDHDC=1>/ << +20+RPDE MT>**D2S6>> ;DUNP TRACK NUMBER 
*D19+RPDFMT-<<<RPDWDC-1>/1D256>- a UCIDI-REDTRK) €¢ tDOL+RPDENT) > > 


: MOVB (PC), RY = 5 INDICATES THAT BUTTON #2 WAS PRESSED 
CLR RS iter “LOGICAL SWITCH REGISTER” 
CLR Rl :SET UNIT NUMBER TO ZERO 


: MOV #<RPREAD*409> ! <RPBSCT#10> , RO 


MOV #-RPBWDC, Re 
MOV #<RPBFMT#40O000> § <RPBTRK#2000> !RPBCYL,R3 
;PUT THE UNIT NUMBER INTO RO 








BO4 
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1837 ;BM873-YD = KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY 27(657) 18-DEC-74 11:59 PAGE 7 

1838 ?BMS73-YD.P11 RHI1I/RPOY BOOTSTRAP AND DUMP ROUTINES 

1849 334 3173334 OCO000S RPLOOP: RESET “RESET IN CASE OF RETRY 

1841 323% Ol 7173336 010006 MOV RO. SP GET THE UNIT NUMBER INTO SP 

1e42 340 042706 3173340 042706 BIC #tt7, sp : ISOLATE THE UNIT NUMBER 

1843 Re 177770 ;173342 177770 

1e44 344 010661 :17 010661 MOV SP,RPCS2(R1) |; TELL THE RH11 THE UNIT NUMBER 

1845 OO4346 10 3173346 000010 

i846 904350 11 3173350 032711 BIT #RPDVA, (RL) ;TRY TO SEIZE THIS RPO4 UNIT 

184? 0043S2 O04000 ;1733S2 004000 

1848 004354 901767 > 173354 001767 BEQ RPLOOP BRANCH IF WE HAVEN’T SEIZED IT 

1849 004356 012721 3173356 012721 MOV SRPPRST,(R1)+ :DO A “READ-IN PRESET” FUNCTION 

1850 604360 000021 173360 00002) 4 

1851 004362 019306 3173362 910306 MOV R3, SP sGET THE CYLINDER NUMBER INTO SP 

1852 004364 173364 O42 BIC #101777,SP SISOLATE THE CYLINDER NUMBER 

1853 004366 176000 :173366 176000 

igsy 370 010661 5173379 010661 MOV SP,RPDC-2(R1)  ;TELL THE RPOY THE CYLINDER NUMBER 

1855 372 000032 :1 000032 

1855 004374 O1NSNe 2173974 N1NBWNE MOY R2.SP :GET THE FORMAT BIT AND TRACK NUMBER INTO SP 

1857 004376 100003 :173376 100003 RPCONT “BRANCH IF 20 SECTOR (18-BIT WORDS) FORMAT 

1858 bowog e761 5173409 Ole7b1 MOV #RPFMT,RPOF-2(R15 ;ESTABLISH 22 SECTOR (16-BIT WORDS) FORMAT 

1889 1 1 01 

1860 OO4404 eM 000030 

1861 OO4406 006206 3173406 006205 RPCONT: ASR SP RIGHT ALIGN THE TRACK 

1862 OO4410 006206 3173410 006206 ASR SP : NUMBER IN THE LEFT BYTE 

1863 OOW12 105006 3173412 105006 cLRe SP :CLEAR THE RIGHT BYTE 

1864 DOW414 150006 2173435 152006 BISB RO,SP “PUT THE SECTOR NUMBER INTO THE RIGHT BYTE 

1BES SON416 106006 :174416 106006 RORS SP :RIGHT ALIGN THE 

1866 O04420 106206 :173420 1 ASRS Pp : SECTOR NUMBER IN 

1867 OO4422 106206 31732422 106206 SP : THE RIGHT BYTE 

1868 OOWeE4 010661 i 1734e4 010661 MOV SP,RPDA-2(R1) TELL THE RH11 THE TRACK AND SECTOR NUMBERS 

1869 OO4426 000004 :173426 O00004 

1870 OO4430 010211 3173430 010211 MOV R2, (RI) ;TELL THE RH11 THE WORD COUNT 

1871 OO4432 O10006 3173432 010006 MOV RO, SP :GET THE FUNCTION CODE INTO SP 

1872 OOWWSH -105006 3173434 105006 CLRB 3s SP *CLEAR THE RIGHT BYTE 

1873 904436: 000306 :173436 600306 swag 2s SP *RIGHT ALIGN THE FUNCTION CODE 

1874 OO444O0 O10641 3173440 010641 MOV SP. =(R1) ‘TELL THE RPOY THE FUNCTION CODE 

1875 oo4442 105711 i 17 aaie 105711 RPDONE: TSTB RI) *TEST FOR RHI1 “READY” 

1876 OOMH44 1 21 1 BPL RPOO "LOOP, WAITING FOR RH11 “READY” 

1877 OO44#46 032711 :173446 032711 BIT SRPTRE!RPMCPE, (RL) ;TEST FOR RHL1 ERROR BITS 

1878 OO44SO 060000 ;173450 60000 

1879 Oo4452 001330 3173452 001330 BNE RPLOOP -IF ERROR, BRANCH BACK FOR RETRY 

1880 OO4454 032761 31 032761 BIT SRPATAIRPERR,RPDS(R1) ; TEST FOR RPOY ERROR BITS 

1881 OO44S6 140000 :1 140000 

1BBe OOW4ED 000012 31 on0n12 

1883 Dove 1 i 173466 1324 BNE RPLOOP IF ERROR, BRANCH BACK FOR RETRY 

1884 *] CMP SRPREAD, SP WAS THE FUNCTION A “NORMAL READ"? 

1885 OO44E6 1 3173466 1 

188k po¥470 091250 173470 b01250 BNE TCSTOP sIF NOT, BRANCH TO A HAL] INSTRUCTION 

1887 022737 3173472 O22 CMP #000240, 80 “WAS "OO0240" READ INTO LOCATICN ZERO? 

1828 OO4474 OOGe4D 3173474 O00240 

1889 004476 000000 ;173476 000000 

1890 OO4SOO 001643 :173500 001643 BEQ Goroo IF SO, BRANCH TO LOCATION ZERO 

1691 04502 000000 ;173502 o00000 HALT :*00240" WAS NOT READ INTO LOCATION ZERO 

1892 904504 41 3173504 000641 BR GOTOO "BRANCH TO LOCATION ZERO 


ae 2 ee re ree eee A SS Se) al Shite 9 ease aia eR aS Le a 
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893 
| 1835 QO4SO5 010037 ;173506 010037 RPDUNP: MOV RO,DaROTOR? —=«-; SAVE RO IN PDP-11 MEMORY LOCATION “ROTOR?” 
1638 OO¥E19 00040 1172819 OoD0ND 
1897 OONE1S O10700 173812 910700 MoV PC, RO /USE_RO_FOR A SUBROUTINE RETURN ADDRESS 
| 1888 004514 000657 3173814 000657 BR REGSAV 'G0-10 THE “REGISTER SAVING” SUBROUTINE 
| 1899 004816 D12700 3173516 012700 MOV -aSCRPWRIT#4OO> # <RPDSCT#IO> , RO 
1800 004520 2173520 030500 
| 1901 004522 Ole702 ;1735e2 012702 OV —s#-RPDWDC, Re 
| 1958 QOM884 115000 173829 110000 
| 1903 012703 :173826 012703 OV a RPDFMT#4Q000> # «RPDTRK#2000> !RPDCYL, R3 
1304 OO4S30 032631 3173530 32631 
| 1305 OOdBSe OOOEMe j 173882 ONLE7E BR —sRPSTRT 
i - 


a ee ES EE 
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1307 ;8N873-YD - KLIO (POP=11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27’ ) I18-DEC-74 11:59 PAGE 8 
ee: sBMS73-YD.P11 DTEeO DEVICE REGISTER AND BIT DEFINITIONS 
1910 
$11 ; 174400 OTEBAS=174400 ;BASE OF (FIRST) DTE2O DEVICE REGISTER BLOCK 
ats ; 000040 DTESIZ=000040 ; SPACING BETWEEN CONSECUTIVE DT. 
ata : 000004 DTEMAX=4 ;MAXIMUM NUMBER OF DTE20’S ON ONE POP-11 
915 
916 ;OFFSETS FROM THE BASE OF THE DTE2O DEVICE REGISTER BLOCK 
ae TO SPECIFIC 10/11 INTERFACE RAM LOCATIONS AND REGISTERS. 
919 


; THE FIRST 18 REGISTERS ARE NOT INITIALIZED BY “INIT” (BECAUSE THEY ARE IN RAMS 
LAY COUNT SS XxXxx00) 





l 
1 

l 

l 

l 

l 

bt 

1939 : 900000 DLYCNT= (ADDRE 

193] : 50962 Ee : T OR EXAMINE WORD 3 (ADDRESS XXXXO2) 

1922 : XWD2= ‘DEPOSIT OR EXAMINE WORD 2 (ADDRESS XXXXO4) 

1923 : 000006 Iz :DEPOSIT OR EXAMINE WORD 1 (ADDRESS 06) 

i954 : 600010 TENADI=10 16 ADDRESS WORD 1 FOR DEX (ADDRESS 10) 

1935 : 900012 2=12 10 ADDRESS WORD 2 FOR DEX (ADDRESS 12) 
BB ieee Tele BYE (pes Bie 

1928 : 000020 TOLORb= 1010 PDPI1 SENORY ADDRESS (ADDRES XXXX20) 

1929 : 000022 TOLIAD=e2 TOM PDP11 MEMORY ADDRESS (ADDRESS XXXXe2) 

1930 : g00024 TOlODT=24 :T010 POPI1 DATA WORD (ADDRESS XXXX24) 

1331 : o00026 TOLIDT=26 *TO11 PDP11 DATA WORD (ADDRESS XXXX26) 

1933 ; THE LAST 4 REGISTERS ARE INITIALIZED BY “INIT™ (BECAUSE THEY ARE IN FLIP-FLOPS 
1934 ; 000030 DIAGI=30 DIAGNOSTIC WORD | (ADDRESS XXXX 

1935 : 900032 DIAGe=3e DIAGNOSTIC WORD 2 (ADDRESS XXXX32) 

1936 : 900034 STATUS= 10/11 INTERFACE STATUS WORD § (ADDRESS XXXX34) 

1937 : DIAG3= DIAGNOSTIC WORD 3 (ADDRESS XXXX36) 

o 

1939 

1340 ; THE FOLLOWING ARE THE ADDRESSES OF THE DTE2O INTERRUPT VECTORS 
1942 , 909774 DTEIV1=774 s INTERRUPT VECTOR FOR DTE2O 81 

1943 : DTELve=770 INTERRUPT VECTOR FOR DTECO #2 

1944. : 000764 DTEIV3=764 NTERRUPT VECTOR FOR DTESO #3 

1345 : 000760 DTEIV4=760 SINTERRUPT VECTOR FOR DTE2O #4 

1947 

1348 ; BIT ASSIGNMENTS FOR VARIOUS DTE20 REGISTERS USED BY THIS ROM CODE 
1950 

1351 BIT ASSIGNMENTS FOR TOLOSC 

1953 : 100000 INTII=BITIS ;SET DONE AND INTERRUPT BOTH 10 AND 11 

1355 BIT ASSIGNMENTS FOR TOLIBC 

1957 : 100000 INTIO=BITI5 SET DONE AND INTERRUPT BOTH 10 AND 11 

1958 : STOp=BIT14 : STOP oN NUR CHARACTER 

1353 : OLIBM=BIT13 - BYTE SIZE F (ZERO SE TRANSFERS 
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DRESET=B81T6 


NUP =B 
TOlDEN=8170 
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BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 
BIT DEFINITIONS 
; I 

T 


IT ASSIGNMENTS FOR OIAG2 (WRITE) 
;PERFORM DIAGNOSTIC CLEAR 
IT ASS 


M 
I 
A 
N 
Seats Katy Dt vo DIAG3 (READ) 


Pp 
I 
38 
D 
;8 
g ENTBtS eee y 
spar UNTBUS Best Enese 

;BIT ASSIGNMENTS FOR DIAG? (WRITE) 
;CLEAR DUPE me wa ERROR FLAGS 
:CLEAR NUPE ERR 
BYTE SIZE FOR 10-10 BYTE TRANSFER 


;BIT ASSIGNMENTS FOR STATUS (WRITE) 


; ORBELL (INTERRUPTS THE -11) 
ee He POP it 1’S DOORBELL 


PARITY ERROR 
1 bike S DOORBELL (INTERRUPTS THE -10) 


RROR™ 


Cnr a sy at TO THE -11 
Pop INTE NTERUPTS 


ae 1aJO1) Fae ERROR 
;BIT ASSIGNMENTS FOR STATUS (READ) 


— 
—-O 


‘TH POP st 1 15 “RESTRICTED” 
BciT ORE 


10 11 ERROR EINER TINEOUT OR BUS ERROR) 
;DTE20 INTERRUPTS (TO THE -11) ARE ENABLED 
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- KL10 (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) _ MACY11 27(657) 18-DEC-74 11:59 PAGE 1 
PROCEDURE BY WHICH THE POP-10 BOOTSTRAPS AND/OR DUMPS THE POP-11 


THE FOLLOWING IS THE PROCEDURE WHICH THE KL1O EXECUTES IN ORDER 
TO DUMP AND/OR BOOTSTRAP THE PDP-11 THROUGH THE DTE20: 


i. 


2. 


CLEAR THE DTE2O AND INITIATE A_BM873 BUTTON #4 BOOTSTRAP OPERATION 
CONO ([SRIIBICLIIPTICLTOLL!CLTO1O!PILDEN) 


WATT TO SEE PDP-11 POWER FAIL (AC LOW = TRUE) - CONI [DEAD11] = 


3. WAIT TO SEE PDP-11 POWER RECOVER (AC LOW = FALSE) - CONI [DEAD11] = 90 
4. WAIT AT LEAST ANOTHER 150 MILLISECONDS AND THEN CLEAR The RELOAD -11 BUTTON 


CONO [CR118) 


S. SET BYTE COUNTER TO A SPECIAL CODE (1365 OCTAL) - DATAO [1365] 
6. RING PDP-11'S DOORBELL - CONOL[TO11DB) 
7. WAIT UNTIL "-10 RINGING -11'S DOORBELL” IS TURNED OFF BY THE -11 
(I.E. UNTIL  CONI{[T011D8] BECOMES ZERO) 
8. ENABLE THE DTE20 TO USE PI 0 INTERRUPTS 
(I.E. SET CONO[PILDEN!PIOENB)). 
9. SET UP THE TO-10 BYTE POINTER (IN THE EPT) FOR THE FIRST 3.5K. 
10. SET UP THE BYTE COUNTER FOR THE FIRST 3.5K, INDICATING 
“INTERRUPT -10 ONLY” paTao 11000} 
11. WAIT FOR “TO-10 DONE” OR “TO-10 ERROR" - CONI [TOLODN!TOIOER) 
12. NOTE WHETHER T WAS AN ERROR (CONI [TOLDER]) AND THEN TURN OFF 
TOLODN AND TOIOER -  CONO [CLTO10). IF ERROR, GO TO STEP 17. 
13. IF END OF 28K, GO TO STEP 17. 
14. SET UP TO-10 BYTE POINTER (IN THE EPT) FOR THE NEXT 3.5K. 
15. SET UP THE BYTE COUNTER FOR THE NEXT 3, ;5k INDICATING 
T INTERRUPT -10 OnLy" (DATAO (19 UNLESS THIS IS THE 
LAST 3 g IN WHICH CR ICATE “INTERRUPT 
H BROCESSOR Says AO [TO1OIB?! ogy} 
16. GO TO STEP 11. 


a en er re re met Se oe ee ae 
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2068 :BM873-YD - KLIO (PDP=11) 256 WORD BOOTSTRAP ROM VERSION 2(17) _ MACY11 27(657) 18-DEC-74 11:59 PAGE 1 
2069 !BM873-YD.P11 PROCEDURE BY WHICH THE PDP-10 BOOTSTRAPS AND/OR DUMPS THE PDP-11 

2071 

24 7 SE TO UR NT RT 

S074 Ae TE eB T BATTERR obbcdO (A POR=11 NOP INSTRUCTION?” 

2078 18. RING THE POP-11°S DOORBELL - CONO [T011DB) 


19. WAIT FOR EITHER TO11DB TO GO OFF (CONI[TO11DB) = 0), 
OR TO1ODB TO COME ON (CONI[TO10DB) = 1). 


2081 e0. IF "CTOLOOE COnING, Of IN fier 1e, FO1L08 SHOULD Gt GO OFF 

coe: Fat ERROR LAS WAS ote a “eter, i ae {01458 GOING OFF INDICATES 
e08S 
2086 


ERROR _WA X-MEM OR 11 
PeRITYY AND THE - ii it ote ae TO10D8 COMING ON INDICATES 
T THE ERROR WAS “FATAL” AND THE -11 IS HALTED AT Lat Ion 173714. 
2087 IN THIS LATTER CASE THE -10 MUST RESTART FROM STEP 1 


2088 
2089 21. IF TOLIDB WENT OFF, WAIT FOR “TO-11 DONE” OR “TO-11 ERROR™ 
2030 CONI (TOL1ON! TOLIER) 
2092 22. NOTE WHETHER THERE WAS AN ERROR - CONTI [TOJIER] 
shea 23. TURN OFF TOLIDN AND TOIJER AND RING THE POP-11°S DOORBELL 
2095 CONO (TOLIDB!CLTO11) 
Bit 24. WAIT FOR EITHER TO11DB TO GO OFF CCONTLTOLL 108) = 0), 
2038 OR TOIODB TO COME ON (CONI[TO1ODB) = 
2s. 01108 NG OFF INDICATES THAT THE ¢F OUND NO ERROR 
as tf GOONSFERRING EON 


TROL TO T st WAS JUS 
RECEIVED FROM THE -10. IN THIS case THE = O SHOULD START 
FOLLOWING THE PROTOCOL OF THIS C 


26. TOLODB COMING ON INDICATES THAT THE PDP- 
ERROR (OR THAT THE Ah WORD _TRANSM 


we FOUND AN 
TED WA 


11 
IT THE 
BIT_PATTERN 000240), AND THE POP-11 is pe at AT LOCATION 173766. 


IN THIS CASE THE -10 MUST RESTART FR 


rurorororurururerfurufururorur 
Os be be an hh, oh bh he 
THN ODD VER LOE 
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N 2(i7) 
BOOTSTRAP INITIATED BY THE PDP-10 (T THROU UGH DTEeO) 


tBie pe Ror OF z0 ki: WHICH TO STORE DTE2O REGS. 
ER OF se EGISTERS TO zien 3 
2E¢ WORD ECONDARY BOOTSTRAP FROM THE - 10 
IOENTER a, itt BTeeo Ph BResees BUTTON #4 BOOTSTRAP INITIATED 
+ hov RO,a#ROTOR7 SAVE BRO IN POPedI MEMORY LOCATION “ROTOR7” 


MOV PC, RO sUSE_RO_FOR A SUBROUTINE RETURN ADDRESS 
BR ‘s REGSAV $60 TO.TH THE “REGISTER SAVING” SUBROUTINE 
MOV (RS)+,R1 : SAVE LOCATION 0 IN RI 

MOV (RS)+/R3 :SAVE LOCATION 2 IN R3 

MOV (RS)+ RY :SAVE LOCATION 4 IN R4 

MOV (RS) ,RO : SAVE LOCATION 6 IN RO 

MOV #PR7, (RS) :SET uP PRIORITY FOR NON-EX-MEM TRAP 
TST -(RS) -SET RS = 4 

MOV #OTEBAS-DTESIZ, ri 

MOV PC, (RS) :STORE ADDRESS FOR NON-EX-MEM TRAP 

MOV RS: SP :SET STACK POINTER = 

ADD #OtESIZ,R2 :Re POINTS TO THE NEXT DTE2O 

TSTB sR 

BMI 10$ ;START LOOKING FROM THE BEGINNING AGAIN 
BIT #701108, STATUS(Re) :IS THIS -10 RINGING THE -11'S DOORBELL? 
BEG 11$ SNOT GO LOOK FOR ANOTHER -10 
CMP TOLOBC(R2), (PC) it eeK CoDE (1365) FROM THE PDP-10 


BNE 11S ; INDICATING THAT IT WANTS TO BOOTSTRAP THE -11 
; NOTE THAT AT eet POINT coe Re THE ADDRESS OF THE DEVICE REGISTER 
fate = 4 


HIS DT THAT RS = 4, AND THAT SP = 

is )+ TRS =6 

RO, (RS) RESTORE Te CONTENTS OF LOCATION 6 
Nov RY; =(RS) *RESTORE THE CONTENTS OF LOCATION 4 
MOV R3,-(RS) "RESTORE THE CONTENTS OF LOCATION : 
MOV R1,-(RS) RESTORE THE CONTENTS OF LOCATION 
- NOTE: AT THIS TIME RS = 0. THIS FACT WILL BE USED LATER. 
Mov #OTECOR, RO ;RO = CORE ADDRESS FOR STORING DTE20 REGISTERS 
MOV Re, RY 
MOV (RO)+ “SAVE THE NEXT DTE2O REGISTER IN CORE 


CMP LEAL RO  ;HAVE WE FINISHED YET? 
BHI 7S sLOOP UNTIL WE HAVE FINISHED 
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tial ted POUCH MPG Y AA E7 (657) 18-DEC-74 11:59 PAGE 1 
R1 = OTE20 DEVICE REGISTER BLOCK 


;00 A “DIAGNOSTIC CLEAR” OF THE DTE2O, 


; THE ABOVE OPERATION IS NECESSARY TO CLEAR THE "BYTE COUNT enna FLAG 


i, 
SLR 
BIT 
BEQ 
BIT 
BEQ 
MOV 


HALT 
MOV 


AND SIMUL TANEOUSLY TO TURN OFF “ =10 RINGING -11°S DOORBELL 
R TE20 NO DELAY 

; START wit tine -11 MEMORY INTO THE -10. 
sHAS THE -10 RUNG THE -11’S DOORBELL? 


;LOOP UNTIL IT HAS. 


6S 
#DUPE! DURE !NUPE , DIAG3(R2) “FATAL” ERROR? 


;BRANCH IF NO “FATAL” ERR 
;SIGNAL “FATAL” ERROR TO THE PDP-10 


;HALT DUE TO “FATAL™ ERROR 


#DRESET, DIAG2(Re} ;RESET AFTER POSSIBLE POP-11 


; MEMORY PARITY ERROR OR NON-EX-MEM ERROR, AND ALSO TURN OFF 


i 
MOV 


*-10 syed -11’S DOORBELL 
START INPUTTING AT LOCATION 0 


te. age tise ;READ IN 2S6 WORDS 


;HAS THE -10 RUNG THE -11’S DOORBELL? 
T , 
HE TRANSMISSION FINISHED? 


;LOOP Witt IT se FINISHED 
;1F_“TOLLON” {ST 


1$ 
#TOLIDN! TOLIER, (AT) 
"TOLIER™ MUST BE ON 
*CHECK FOR BIT PATTERN IN LOCATION ZERO 


“NOP” IT IS AN ERROR 
;SIGNAL THE -10 THAT THERE WAS AN ERROR 


TS ERROR HALT IS BECAUSE EITHER eae 
CR BECAUSE THE att rare rs INTO LOCATION ZERO WASN’T 


;UNLESS THERE IS A 


- TS ON, 
Mov 


JMP 


" sDRESET, DIAG2(R2) THE -10 THAT EVERYTHING IS OK 





;JUMP TO LOCATION ZERO 
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MAP. 
: THE PSL ROWING IS A REPRODUCTION 
ada RCM AND FOR REFERENCE 

M873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 


pitts PAGE 
BM873F <- KLIO (PDP-11) 256 KORD BOOTSTRAP ROM VERSION 3(23) 


COPYRIGHT (C) 1975 DIGITAL EQUIPMENT CORPORATION 
ALL RIGHTS RESERVED 


THIS IS THE CODE TO BE ENCODED in THE BOOTSTRAP ROM ON THE BM873-YF BOARD 


MODULE : BM873F 
DATE: 17-JUN-75 
AUTHOR: TOM PORCHER 


ete ete ete ee re re rs Te re Te Te TY 


-ENABLE ABS, AMA 
177776 PS=177776 ;PROCESSOR STATUS REGISTER 





: 177570 SWR=177570 ‘FRONT PANEL SWITCH REGISTER 
: 000000 PRO=0%40 PRIORITY LEVEL O 
: 000040 PRi=1%40 PRIORITY LEVEL 1 
: 0001 =2x40 “PRIORITY LEVEL 2 
: 000140 PR3=3%40 PRIORITY LEVEL 3 
: 000200 PRY=4x40 *PRIORITY LEVEL 4 
: 000240 PRS=S#4 “PRIORITY LEVEL S 
: 000300 PR5=6#40 IORITY LEVEL 6 
: 000340 PR7=7#40 IORITY LEVEL 7 
: 000001 BITO= 

: 000002 BITI= 

: 000084 ®BIT2=000004 

: 090010 ®8IT3=0000i0 

: p00020 BIT4=000020 

: B1TS=000040 

: vented 176=000100 

: goge09 BIT7=000200 

: 1T8=000400 

ee 

: 004 7112004000 

: 010000 81T12=010000 

} pG0008 atria 550008 

: ee Btriee =100000 

} 177400 HIBYTE=177400 


| 
; 
i 
} 
| 
! 
| 


| 
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ee 7 
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2281 
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; 000001 


000001 


oo0ongdo jon | ae | oe] 
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Oo 


000034 
000035 


See Se Geese Se Se ee Se SF SF SH Se CF SF Se C8 et CE ee Oe ee Oe Oe ee ee ee ee wee we 
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H u 
DIRECTIVE FUNCTION CODES 
OR.OTE=1. :DTE EXAMINE/DEPOSIT/INITALIZE/DOORBELL FUNCTIONS 
, 
: DTE FUNCTION CODES (LOW ORDER BY BYTE) 
OF .DO8=1 ;DOOR BELL FUNCTION CODE 
OF. OFF= ;DTE OFF FUNCTION 
F:ON= “OTE ON FUNCTION 
DF. DMG= :DEPOSIT MY GENERAL FUNCTION 
DF. EMG= "EXAMINE MY GENERAL FUNCTION 
DF. EMN=6 “EXAMINE MY FOR N FUNCT 
* DMN=?7 DEPOSIT MY FOR N FUNCTION 
OF -EHG=10 s EXAMINE HIS GEN SECTION FUNCTION 
“EHM=11 *EXAMINE HIS SECTION FOR ME FUNCTION 
OF .KLR=12 ‘DIAGNOSTIC KL READ 
DF :KLW=13 *DIAGNOSTIC KL WRITE (FUNCTION 13) 
*KLX=14 *DIAGNOSTIC KL EXECUTE. ( FUNCTION 14) 
DF: PEX=15 *PRIVILEDGED EXAMINE (FUNCTION 15) 
OF: PDP=16 *PRIVILEDGED DEPOSIT (FUNCTION té) 
CRASH CODES 
Ec. ILD=1 ; ILLEGAL DIRECTIVE 
CC: IDI=3 ILLEGAL DTE INTERRUPT 
CC: 10T= TOT TRAP 
C:RES= "RESERVED INSTRUCTION TRAP 
CC: TET=6 *T BIT OR BPT TRAP 
CC. TRP=? : TRAP INSTRUCTION TRAP 
c-UNT=11 il LEGAL TRAP (UNKNOWN TRAP) 
“MPE=12 MORY PARITY ERROR 
CC: NPF=13 RESTRICTED FRONT CAN” T EXECUTE BOUT PROTOCOL 
CC: PTB=14 TOCOL (PRIMARY) BROKEN 
Ee fecsle CLOCK TOE AND 
66; 1P0=17 t INPUT TT¥ Y OVERFLOW 
CC: IAS= * INCORRECT VALUE IN .SERFG 
CC.NCE=21 *NOT ENOUGH ENTRIES in CLOCK QUEUE 
CC: PIT=22 ;CAN’T EXIT PERM ANENT TASK 


- UMP=23 
CC.EPE=24 
CC.NDE=e25 
CC. DEX=26 
CC. Abt 44 
CC. ETE=30 
CC. wir sz) 


;LOAD REQUEST por IMPL YET 
;E BUS PARITY ERR 
iNOT a ENTRYS FOR DTE20 
TIMEOUT 


OPPED 
t UNIMPLEMENTED FUNCTION 
SILLEGAL QUEUE 





LOY 
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2325 ;BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 
ra : ; 
e350 ; GENERAL PROCESSOR DEFINITIONS 
2330 . : ooo340 per7=wu0 :PROCESSOR PRIORITY 7 
23 
5335 ; DTE20 REGISTER DEFINITIONS 
2335 THESE LABELS ARE THOSE USED IN THE FRONT END INTERFACE SPEC 
est ; EXCEPT STATUS WHICH CONFLICTS WITH PROTOCOL SPEC 
é ; 
2338 : PDM# 200-200-012-00 
5333 
2341 : 174490 OLYCNT=174400  ;DELAY COUNT WORD 
2342 : 1744.02 DEXWD3=174402 DEPOSIT OR EX BININE WORD 3 
2343 : 174404 DEXWD2=174404  :D Ost OR EXAMINE WORD 2 
2344 : 174406 DE 121744 3D POSIT R_EXANINE WORD | 
D345 : 174410 TENADI=174410 bree 
2346 : 174412 TENAD2=174412 TEN ADDRESS WORD 2 
2347 : 174414 TOLOBC=174414  :TO-10 PDP-11 MEMORY ADDRESS 
2348 : 174416 TOLIBC=174416 310-11 BYTE COUNT 
| 2349 : 174420 TOLOAD=174420  :T0-10 PDP-11 MEMORY ADDRESS 
| pe3s0 : 174422 TOLLAD=174422 :T0-11 PDP-11 HENORY ADDRESS 
2351 : 174424 TOLODT=174424  $T0-10 PDP-11 DATA WORD 
| 2252 : 174426 TOLIDT=174426 :TO-11 POP-11 BATA WORD 
| 2353 : 174430 DIAGI=174430  :DIAGNOSTIC WORD 1 
| 2354 174432 DIRGe=174432 DI TIC WORD 2 
| 2355 : 174434 STET=174434 STATUS WORD 
| es5b : 174436 DJ-33=174436 DIAGNOSTIC WORD 3 
| 336g ; 
| e353 : EXTERNAL PAGE DEFINITIONS (DEVICE DEFINITIONS) 
| 361 : 
| esbe ; OTE DEFINITIONS 
| 2364 : 
| 2365 : REGISTER BIT DEFINITIONS 
| 2366 a 
| e368 ; TENAD! DEFINITIONS 
| 2370 ; v10000 #eP=010000 sDEPOSIT (BIT 12) 
| p37l : 004000 PRTOFF=004000 ;EXAMINE/DEPOSIT PROTECT OFF 
ese . 100000 PHYS=100000 “PHYSICAL EXAMINE 
| esr : TOLIBC DEFINITIONS 
2376 ; 100000 tFLoP=10000 iI 1 _FLIPFLOP BIT 
2377 : 040000 2STOP=04000 
2278 : 020000 TO1ieM=020000 if 11 BYTE MODE 


ae er ee 8 ere 
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. 
’ 


Cee ee eee ee ee ee 2D 


SO Oe SS SS SO Se Se SE St SO OF 8 SE SESS SF OE OF SE O8 we Ht et ee ee wt os 


004000 
002000 


000001 


ono0co 
001000 
002060 
0030u8 


004000 


005000 


006000 
007000 
010000 


11009 
2000 


4000 
5000 


oo oO 
—— — 


DIAG! DEFINITIONS 


ésou=o04000 :KL CLOCK ERROR STOP 
ps0s=002000 * RUN 


p X= BOR age OR EXAMINE MAJOR STATE 


T011=000100 ;TO-11 TRANSFER MAJOR STATE 
01011=000040 DIAGNOSE 10/11 INTERFACE 
PULSE=000020 SINGLE CLOCK CYCLE 
OIKL10=00010 ; DIAGNOSTIC MODE SWITCH 


0S 004 3eND DATA 
DcONST=000001 : DIAGNOSTIC COMMAND START 


; DIAG] FUNCTIONS 


*STPCL=0 sSTOP THE KL CLOCK 

*STRCL=61%1000 -START THE KL CLOCK 

SSCLK=02%1000 SINGLE STEP THE M BOX CLOCK 

“SECL¥=03%1000 *SINGLE STEP THE EBOX CLOCK. LEAVES THE 
- EBOX CLOCK FALSE AND EBOX SYNC TRUE. 


SY 
*CAUSES (2,3) nix Corks DEPENDING ON 
*EBOX CLOCK INITIALLY (FALSE TRUE) . 
“DOES NOT DEP NiO ON ’T’ FIELD OR MB WAIT. 
. CECLK=04*1000 ; CONDITION thy? RSOHE AN EBOX CLOCK IF THE EBOX 
"CLOCK IS TRUE. "MAKES EBOX CLOCK FALSE. 
-IF ISSUED IN THE MASTER RESET STATE. 


“LEAVES EBOX TRUE. 
. BRCLK=05% 1000 ISSUE A BURST OF THE CLOCKS. THE NUMBER 
OF MBOX CLOCKS BESTRED (1-285) HAS BEEN 
jBEEN, LOA DED PREVIOUSLY BY FUNCTIONS LDBRR,LDBRL 
-CLRMR=08% 1000 ;CLEAR MASTER RESET STATE 
- SETMR=07%1000 : SET NASTER RESET STATE. RUNNING THE CLOCK WHILE IN THIS 
“STATE ’CLEARS’ THE KL1 
-CLRUNS1631000 CE AR THE RUN FLOP. MAKE THE MICRO CODE GO TO 
SETRN=11%1000 : SET THE RUN FLOP. ALLOW REPEATED INSTRUCTION EXECUTION 
 CONBT=12#1000 SET THE CONTINUE FLOP (MOMENTARY). ALLOW THE 
gMICRO CODE TO LEAVE THE H LOOP 
IRLI@=14#10 sUNLATCH B TE AND LOAD IT FROM THE AD. 
‘ORL Te=15#1000 UNCATCH THE IR REGISTER AND ALLOW IT TO LOAD FROM THE 
’ 


| 
| 
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te te Reh eh hh hh Le te i a i a ee a Tl 


C42000 


CLOCK LOAD FUNCTIONS } 


“LOBRR=4231900 -LOA D THE RIGHT HAND 4 BITS OF THE 8 BIT 
COUNTER FROM EBUS BITS 32- 


B40 a ‘ i: ab TH HE Lock” SOURCE™ NB RATE SELECT. 


045000 


046000 


047000 


: 00 NORM XTL 00 

; O1 FAST XTL Ol /e 

; 10 EXT 10 /4 f 
UNDEF il 7 


: 11 8 
.LODIS=45*1000 ;LOAD THE REGISTER WHICH CONTROLS THE EBOX CLOCK 


17) ee HSA 
;BIT 


; ACTION 
:33 DISABLE CONTROL LOGIC CLOCK 
324 DISABLE CONTROL RAM CLOCK 
35 DISABLE DATA PATHS CLOCK ; 
.Lock1=4631000 LOAD THE CONDITION- CHECKING ENABLE REGISTER. 
OTHE SE ALL ena te THE CLOCK TO STOP A UL 
:BE USe_IN ¢ CONJUNCTION WITH BIT 35 OF FUnCTION 47 


UNCTION 
iB CHECK FM PARITY 
333 CHECK ions praiiy 


‘DRAM PARITY 
CHECK FIELD SERVICE PROBE 


335 B 
-LocK2=47%1000 ; ;LOAD THE ENABLE/DISABLE FUNCTION REGISTER 


FUNCTION’ 
;3e DISHGLE - REQUESTS TO MBOX 
r, SIMULATE AN MB _RESP FOR EACH MB WAIT 
334 CHECK AR AND ARX PARITY AND CAUSE A 
; APGE FAIL UCODE TRAP IF ERROR 

MUST BE SET TO PERFORM DESIRED ACTION OF 
FUNCTION 46 (ABOVE). STOPS ALL CLOCKS IF AN ERROR 
1S DETECTED. 


-_—_— ee —— + —- Ce + 


eye 
t > | 


ns 


4 
by 


uv 


~“ 


o 


ao 
ve) 


Jud 


al a at a a a A a a 


? 
Baa tours 


SBC RACGNCR 


HERNERD 
NOMUN SS Wr © 


BOS 
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:BMS73F = KLIO (POP=11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) ee-AUG-75 10:30 PAGE 1 
ONTROL RAM LOAD FUNCTIONS 
057000 -LCRIL=5781000 EBLE CRAM 





H 1 
" 314-17 04-07 
: :20-23 O8-1 
i +g3°S2 le-1 
$ 2-35 16-19 
: OS6000 .LCRM2= =sb+i003 :08-11 20-23 
: 314-17 24-27 
; 20-23 28-31 
; 26-29 32-35 
3 36-39 
: osso00 -Loré3+56%1009 ;08-11 40-43 
; 4-17 44-47 
: oo 53 48-5) 
; 26-29 Se-55 
: 232-35 56-53 
; os4C00 +LCRIM=S4# 1000 as 308 S60 
; 314 64 
; 716 6 
; 320 68 
; 322 70 
: +26 72 
; 328 74 
‘ sae 76 
: 34 78 
; 053000 .LCRMS=53%1000 301-05 DISP 00-04 
: “CCRDL=52#1000 701-05 CRAM DIAG ADDRES 00-04 
: 051000 .LCRDR=51#1000 :00-05 CRAM DIAG ADR 05-10 
DRAM LOAD FUNCTIONS 

: oso000 * LORMI=60%1000 DRAM ACO-02, EVEN ADDRESSES 
: 15-17 DRAM Boo" ‘08, ‘EVER Baa 2086, 
: 061000 -rornesei e009 ODD ADDRESSES 
: -15-17 DRAM pooh, top ADDRESSE 
: 062000 .LORM3=62#1000 214-17 COMMON sia -04 
: 063000 -LORJV=63#1000 15-17 JO8-10, EVEN ADDRESSES 
: a : PARIT BIT, EVEN ADDRESSES 
; 064000 s.orap=cisjoog ids COMMON JO? (NOTE -- J05,6 DO NOT EXIST) 
: 13 308-10, 50 BIT, T° Obb RBDRESSES 

; IR, DRAM CONTROL FUNCTIONS 
; 065000 ‘'pS10J=65*1000 ;DISABLES SPECIAL DESDE OF OPCODES 254, 7xx 
: 066000 .OSACF=66#1000 *DISABLE IR AC OUT 
: 067000 .E10JA=67#1000 *ENABEL KL STYLE DELOBING OF CODES AND AC’S 
; 070000 ‘INICL=70«1000 s INIT CHANNELS 


' 071000 ‘WRMBX=71#1000 ;WRITE M-BOX 


oe eae ee ee eee 













DZBMOG. P11 on CONTENTS TABLES 
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2520 : O76000 .NEMRS=76*1000 ;SET KL1O MEN RESET FLOP 


2 ; 147000 RORMI= 147#1000 ;READ C-RAM BITS 0-19 
; 146009 <RCRM2=146#1000 ;READ C-RAM BITS 20-39 

000 .RCRM3=145#1000 7 READ C-RAM BITS 40-S9 
144000 .RCRM4=144#1000 ;READ C-RAM BITS 60-79 


hg , 141000 'RCSPF=141#1000 ;READ SPEC FIELD OF C-RAM 
sec , 135000 ‘'RDJ71=135"1000 :READ JO7-J10 OF D-RAM 
5856 ; 134000 °RDJ14=134#1000 !READ JO1-JO4 OF D-RAM 

553] 133000 :ROMAB=133#1000 {READ A 8 B FIELD OF D-RAM 


eS32 
e$33 ; 164000 * CSHRG=1641000 
eSo4 ; 102000 .GFNR=102#1000 


~ 
£ 
uw 
[= ] 


| 1976 NACYIL 27,732) 14-CCT-76 15:26 PAGE SS 


2536 : ; sNOTE CONSOLE SOFTWARE MUST PERFORM THIS AS A PART OF 
e537 : *MASTER RESET CODE 
2535 ; LOAD AR FUNCTION 
San : 077000 ‘LDAR=77#1000 sLOAD THE AR FROM EBUS 0-35 
2543 : 150000 'PCABI=150#1000 :PC-ADDRESS BREAK REGISTERS 
2s44 : 151000 .PCAB2=151#1000 
e545 : 152000 .PCABS=152%1000 
eet : 153000 > PCABY=153*1000 
| 2548 : 
| 548 DIAG3 DEFINITIONS 
522 ; 100000 SwSLLT=100000 ; SHAP SELECT LEFT 
; psse : o4penn HPS4=040000 PARITY 
| 2553 : 000040 SHIFT CAPTURED DATA 
| €554 : s DATO UNIBUS PARITY ERROR 
2sss : 000020 cop=o000e *CLEAR DUPE AND DURE ERROR FLAGS 
| pS56 : O00010 WEP 10 WRITE EVEN (BAD) PARITY 
| 9557 : 90004 DURE=000004 *DATO UNIBUS RECEIVE ERROR 
| 2558 : NUPE =000002 ‘NPR UNIBUS PARITY ERROR 
2659 : 000002 CNUPE=000002  § ;CLEAR NUPE 
| obo : 000001 TO1OBM=000001  ;T0-10 BYTE TRANSFER MODE 
e562 : 
e5b3 : DIAG2 DEFINITIONS 
| BES ' 99000 be =109 sREM ADDRESS BIT 
SSEb : RFMAD1= : ROM $5 BIT 
| 567 : 040000 904 *ERUS DONE 
| pc6e : 020000 = = REM SS BIT 
| pees : 010000 RFMAD3=0! *RFM ADDRESS BIT 
2570 : 000100 ORESET=000100 ;DT& RESET 


ooo 
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a7) ;BM873F = KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 
( H 5 
2573 ; 
te : STAT DEFINITIONS 
2576 : 100000 TO1ODN=100000  ;TO-10 NORMAL TERMINATION 
2577 : 100000 DONIOS=190000 ; NORMAL TERNINRT ION fone 7 19 
2578 : 040000 DONIOC=040000 70-10 NORMAL TERM NATION statis 
2579 ; 020000 TOIOER=020000 :TO-10 ERROR TERM AA 
2580 ; 020000 ERR1OS=020000 ERROR TERMINATION erAoN 
2581] : 010000 RAMISO=010000 RAM ROS 
2582 : 910000 €&RR10C=010000 ; CLEAR TO-10 ERROR TERMINATION 
2583 : 004000 TOLIDB=004 10 REQUEST ED -11 INTERRUPT 
2584 ; 994900 IN rl REO 1 STATUS 
258s ; 00 iz :DE 
2586 : 002000 INT11C=002000 ;-10 REQUESTS ant INTERRUPT STATUS 
2587 : 001000 11 <11 MEMORY P 
2589 : 001000 =001 ;CLEAR =11 MERCY "PREITY ERROR FLAG STATUS 
2589 : 000400 TOLODB=000400 ;-11 REQUEST -10 INT 
2590 : o00400 NT1OS= sREQUEST -10 INTERRUPT STATUS 
2591 : 0110N= *TO-11 TRANSFER DONE 
2592 : 000200 DON11S=000200 :TO-11 NORMAL TERMINATION FLAG STATUS 
2593 : 900100 EBSEL=000100  :& BUFFER SELECT 
2th : 000100 DONI TO-11 NORMAL TERMINATION FLAG STATUS 
253 : 000040 NULS “NULL STOP 
25% : 900040 I 11 INTERRUPT ENABL 
2597 : : PARITY ERROR 
25398 : i PARIT OR 
2599 : I =00001 *RESTRICTED MODE 
e600 : 000010 INTROF=000010 ;DISABLE PDP11 INTERRUPT 
| Beas BoboeS : SDEPOSELAPGNINE DONE | 
| 603 : o00002 TOLIER= *TO-11 BYTE ERROR TERMINATION 
| 2604 : o00002 11S= :TO-11 ERROR TERMINATION FLAG STATUS 
| pes ; 090001 INT I  fINTERRUPTS ON 
cote ; 000001 ERRIIC=000001 CLEAR TO-11 ERROR TERMINATION FLAG STATUS 
é ; 
| 2608 : DTE20 COMMUNICATION AREA OFFSETTS (WORD NAMES) 
sts : PIDENT=0 sPROCESSOR IDENTIFICATION WORD 
bli : CHPNT=1 s POINTER To COM AREA OF NEXT PROCESSOR (CIRC LIST) 
| 2613 . Fopca i tne oF Bay 
| 2614 ; DATE=4 : 
pels : PSWW1=S "PROCESSOR STATUS WORD! 
| eb1E : PSWHo=b : SSOR STATUS WORD2 
| 2617 : PSWid3=7 *PROCESSUR STA 
| 2618 ‘ PSWH4=10 ;PROCES TAT 
i 2619 : crest. ; T 
«ae 3 <a 
1 ; PSWW7=13 ;PROCESSOR STAT 
| Beee : PSWW10=14 : PROCESSOR 
| pee : Pout 1=15 : PROC S508 
| 2624 : PSuWle=lb “PROCESSOR STATUS WORD 
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’ 
’ 
« 
. 
® 
. 
‘ 
, 


ee eree ee eees 


000017 


000032 
000033 
0000 


000444 
000450 


000451 
O004SS 
O004S6 


000091 
000062 


PRU SPREE STS ro un 

FE BNT=e1 POIN NTER "C0 MM BRED i ane PROCESSOR ASSOC WITH THIS BLOCK 
STATUS=ee : COMMUNICATION GN STATUS HO 

QSIZE=23 QUEUE SIZE WORD 

a ;CTY #0 COMMAND WORD 


cies : EN Ht Reece. ate 
MI SRu=3 MISCELLANEOUS RESPONSE WORD 


UNASG2=33 s UNASSIGNED HORDE 
fess = Uae eet tes 

UNRece ae sige Hoes 

UNASGb=37 UNASSIGNED WORDS 

: gpr ADDRESSES AS DEFINED IN BOOTS FOR USE IN THE 
; CONDARY PROTOCOL 

OTEFLG=444 s OPERATION C COMPLETE FLAG 

TEF 1 1=450 :PDP=10 FROM PDP-11 BEGUNENT NT 

TECMD=451 SPDP-10 7 POP=11 COMMAND WO 
DTEMTD=455 MONITOR on OUTPUT COMPLETE FLAG 
DTEMTI=456 *MONITOR TTY INPUT FLAG 

STATUS DEFINITONS 

tolT=1 N PROGRESS OF PROCESSING QUEUE 

TOIP=2 'T0 HIM INDIRECT IN PROGRESS 


ere ee eee 





[Pao REESE te ee ee 


FOS 





7s ‘ 
e676 ; 173000 .=ROMORG 
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| BES9 ;BM873F - KLIO (PDP=11) 2&6 WORD BOOTSTRAP ROM VERSION 3(23) MACYLI 27(657) 22-AUG-75 10:30 PAGE 2 
seer ; ; 
e662 : 
bb : DEFINITIONS . . . 
| Sees , pooo4 aoToR?= 40 :SAVE RO TO R7 IN 40 TO 56 
Sree : 000130 Sresav= 130 SAVE FIRST 12 OTE REGISTERS DLYCNT TO TOLLDT 
eer” : : IN LOCATIONS 130-156 
e670 : 900012 RETRY= 10. ;D0 10 RETRIES BEFORE HALTING 
bre : 173000 ROMORG= 173000 ;ROM STARTS AT 773000 
bra ; ESTABLISH ROM ORIGIN 
i 
| 
| 
| 
| 
! 


we re ee rw ae mm ee ee ee ee 
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2677 ;8M873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY1I 27(657) 22-AUG-75 10:30 PAGE 3 

2679 : EXTERNAL BUTTONS #1, #2, #3 

See : BUTTON #1 -- LOAD USING SWITCH REGISTER 

2683 005000 910037 ;172000 010037 ee MOV RO, ROTOR7+0 ;SAVE RO IN LOCATION 40 

2684 O05002 00040 :173002 o00040 

2685 005004 013700 3173004 013700 MOV SWR,RO GET SWITCH REGISTER 

2686 005006 177570 :173006 177570 

2687 05019 032700 5173010 032700 BIT #BITO,RO -IS LOW-ORDER BIT SET? 

805014 hast, 173014 aptueyg SNE —- BUTONX sYES-- LOOK AT CONTENTS 

2630 005016 o0057 :173016 000557 BR REGSAV *NO-- SAVE RI-R7 IN 42-56, GO TO ADDRESS IN RO (FROM SWR 

bse BUTTON #3 -- LOAD BOOT FROM RX11 FLOPPY DISK 

2694 005020 905000 ;172020 005000 Leees CLR Rr ;SAY LOAD FROM FLOPPY, UNIT 

ga 005022 OO0404 ;1730¢2 OOO4OY — BR BuTONX :GO TO COMMON CODE FOR 3 BUTTONS 

ob97 * REGUIRED POWER-FAIL VECTOR 

99 ? 3173024 17 . .WORD ROMORG,PR7 
Ses RE, AER EEL AE , 
2702 : BUTTON #2 -- LOAD BOOT FROM RPOY DISK 


3173030 012700 butone: MOV #B1T7,RO ;BIT 7 MEANS LOAD FROM RPOY 
905032 000200 ;173032 000200 


BS 


2706 BR . BUTONX ;FALL INTO COMMON CODE 
2708 RO IS SAVED IN RS AS THE PARAMETER WORD PASSED TO BOOT 


AND CONTAINS ONE OF THE FOLLOWING: 





2710 : 
ae | BESTE FeSO SMEIGY REDE 
ae : att 7:1] toh FROM RP BtSk 
eri ; BIT 15 = 1 INDEFINITE RETRY 
e7ib . ; NOTE THAT IF BUTTON #4 IS PRESSED, RS WILL CONTAIN BIT O = 0, BIT 15 = 
2718 O0S034 O1000S ;173034 010005 Sete; MOV RO,RS SAVE PARAMETER FOR B 
2719 005036 106300 +:173036 106300 ASLB ‘PEF TAL IGN SPEED FIELD IN LOW BYTE 
2720 OOS040 122700 ;173040 122700 CMPB ss #16*BIT4, RO IS SPEED 16 OR 
5755 DOSoNd «so;aGy ft7S04 SO;404 BLOS 108 sYES-- UNIT FIELD IS UNIT # TO BOOT FROM 
8723 005046 122700 173i 124700 CNPB «#3 #BIT4, RO :1S SPEED BR 2? 
S2 101001 3173052 10100 sYES-- UNIT IS UNIT TO USE 

27 4173064 006000 ek RO iN=- USE Unt? 40 

000300 ;173056 000300 {os:  SwAB RO GET UNIT # IN LOW BYTE 
27, D05060 06700 ; 0427 #tC7,RO : TRIM TO 3 BITS 2, » 0 
2730 O005062 1 217 17 


ee Eee 
i 


ce ee a ne ne ee ee 


- — 


HOS 
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e731 : 
463 ; UNIT # IS IN RO-- CALL PROPER 800T DEPENDING ON BIT 7 
a 005064 105705 ;173064 105705 ° TSTB =e R&S ; WHERE —— WE BOOT FROM? 


735 O05 100550 ;173066 100550 BMI RPBOOT BIT 5 -- BOOT FROM RPOY 


DISK 
735 ; BR RXBOOT :B1T = -- BOOT FROM RXi1 FLOPPY DISK 





a a = ne ee ee a cre a oe rr 
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:8M873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 
RX11 FLOPPY DISK BOOTSTRAP AND DUMP ROUTINES 
; RX11 REGISTER DEFINITIONS 


“ee 


ee 


000001 
J90001 


000073 
000001 


* 
b 
. 


RXEPA= 177170 ;EXTERNAL PAGE ADDR OF FLOPPY 
AxCS= 0 -OFFSET FOR CSR 
RXERR= BITI15 ; ERROR 
RXTREQ= BIT? ‘TRANSFER REQUEST 
RXDONE= > BITS TRANSFER DONE 
RXFUNC= BIT3!BIT2!BIT1 ;FUNCTION 
RYEMP T= 
XEMPT= 2 ; EMPTY SILO 
RXWRIT= 4 : WRITE SECTOR 
RXREAD= 6 ; READ SECTO 
RXRERR= 16 ; READ ERROR RREGISTER 
RXxGO=  BITO . 
RXDB= 2 ;MULTI-PURPOSE DATA BUFFER REGISTER 
PARAMETERS 
RXBTRK= 1. ;BOOTSTRAP FROM TRACK 1 
RXBSCT= 1. : SECTOR 1 (LOGICAL BLOCK 0) 
RXDTRK= 59. OUNP TO TRACK 3g 
RXDSCT= 1. : SECTOR 
THAT T OTSTRAP IS WRITTEN IN LOGICAL BLOCK 
ST BS, eet ore ne PRE “BUMP $$ WRITTEN 


REGISTER USAGE : 


Rl -- 


TRACK 5 IN EVERY SECTOR (PHYSICAL 


TING WIT 
SECTORS. NOT H NTERLEAVED” oR TOR den) 


REAR Oe HB Warts ett BIT 15 SET IF WRITE 


CURRENT TR RACK (HIGH BYTE) SECTOR (LOW BYTE) 
TRACK (H By TE APaS On (0H BYTE) 
Bale ADDRESS (TO READ OR WRITE) 

ARAMETER WORD SAVED FROM INITIALIZATION 
RETRY COUNTER 
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2783 : 
784 : HERE TO BOOT FROM RX11 FLOPPY DISK-- UNIT # IN RO 
2786 173070 RXBOOT: 
2787 O0S070 012703 3173070 012703 MOV #< RXBTRK#BITB> ! (RXBSCT#BITOD , R® 
Soes DOEDTA DOSTOn ftoa04 BpezcO TST oR THIS UNIT # 0? 
? Bree athe 173076 nuit Beg Os Teo ist j 
2792 O05 900920 173102 o00020 
2793 005 052700 3173104 052700 108: IS #RXREAD+RXGO,RO ;SET READ FUNCTION IN RO 
2794 005 g0d007 :173106 900007 


| £83 puosnrs 
2731 pre he 012700 ;173100 012700 MOV SRXUNIT,RO NO-= “use UNIT P l 
104 
o+ 106 
2735 : ie RXSTRT ;FALL INTO START-UP 
| 
| 
| 
! 
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10 
le 
14 
16 


BUBB 
OO NOU £UT 

SSSRBEER BSR 
FEGSRLRS REVS 


Bt 6 bs bo fh pe pe b> pb p= H * 


iigiasaianonmnonounn 


SISTER NI ata HT TT 


NNN 
BISRTRORERS 

BR 

~ 


dene bes bes bee Pa b= P12 Gs hee bee pee 


fh 4 = bh = = be ee 
“I 
o 


ee ee ee ecwe we @e @eeeewee ee ee ee wee we 
NINNNN 
— 


Si 
8 
3 
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#RXEPA+RXCS,R1 


aaa THE stot 


} HERE TO PERFORM READ OR WRITE, 


me, 
#RXERR!RXDONE, (RL) ; 





MACY11 27(657) 


! HERE TO START RX11 ON A TRANSFER, EITHER DUMP OR BOOT 
;SET RETRY COUNT 

SADDRESS CONTROL STATUS REGISTER FOR RX1J 
;FALL THROUGH RETRY CHECK 


SO RY Fe RETRY? 


FAITHFULLY 
;NO-- DECREMENT Mad COUNT 
GIVE UP IF RUN OUT 


TART TRAN eee AT LOCATION ZERO 


SECTOR 


elt UNTIL READY” FOR FUNCTION 
Her _YET-- WAIT 
S WRITE? 


ves FILL SILO BEFORE WRITE 
DO FIRST READ 


8 SPECIFIED IN RO 
;D0 READ OR WRITE 
;READY? 


sREADY FOR TRACK? 
iYES~= GET TRACK # 
*SET IT 


;RESTORE HIGH TRACK, LOW SECTOR 
;DONE OR ERROR? 


;NO-- WAIT 
;YES-- ERROR IN FUNCTION 
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2841 ; 

caus ; DISK TRANSFER COMPLETE WITH NO ERRORS 

2844 005208 oos700 ;173206 005700 ’ TST RO ;THIS A WRITE? 

e845 005210 100421 ;173210 100421 BMI RXWDON : YES== SEE IF DONE WITH DUMP 

ces : BR RXEMSL :NO== READ-- EMPTY SILO 

ce : READ COMPLETED-- EMPTY SILO TO MEMORY 

2850 O0S2el2 O12711 ;173212 012711 RXEMSL: MOV @RXEMPT+RXGO,(R1) ;START EMPTY 

Sees 005214 000003 ;173214 000003 

2853 005216 132711 16 132711 los: BITB #RXTREQ!RXDONE,(R1) ;READY FOR WORD, OR TRANSFER DONE? 


; 1732 
2854 O052ee0 000240 3173220 ange40 


ge5 005222 , OOD402 3173222 O00402 BR 20$ BRANCH AROUND VECTOR 
2957 * REQUIRED POWER-FAIL VECTOR 


2858 
2859 005224 173000 ;1732e4 173000 -WORD ROMORG,PR7 


Bebo O0b2e6 000340 '173256 000340 
5862 005230 001772 ;173230 001772 20S: BEQ 108 ;NOT READY=- WAIT SOME MORE 
5e63 005232 100003 $173232 100003 BPL—«aRXRDON 'DONE=- GET ANOTHER SECTOR 
See4 ose34 116124 $173234 116124 MOVE © RXDBCRI),(R4)+ [NOT DONE=- GET A BYTE FROM SILO TO MEMORY 
B85 05236 Oo0002 '1732%6 O0000e 

Bebe O0Se4) C0076 '173240 000766 BR 10s ;WAIT FOR NEXT BYTE 

eee : SILO EMPTIED-- SEE IF WE ARE DONE WITH BOOTING 

2870 51730NE RXRDON: 

5871 173242 $SS=. 

5875 opsey2 122222 $7322 122525 CMPB (2) +, (R2)+ 

5873 O08e45 O25704 $173244 022704 CMP «#256. #24 SHAVE WE READ ENOUGH? 

e74 Oose¥e 901000 ; 175646 091000 

5675 O0sss0 101 Zao 10133 BHI RXPERF ;NO=- READ SOME MORE 

ere O0seS¢ 008007 '173252 O0S007 CLRPC: CLR PC SYES-- GO TO LOCATION ZERO 
5878 t WRITE COMPLETED-- SEE IF DONE DUMPING 

Be 3173254 RXWDON: 

5881 173254 $8S=. 

Sea2 osesy ooseoe 173254 OnS202 INC 2 

5ee3 O0S25 122702 1173266 122702 CNPR «#26. , RE -THIS LAST SECTOR ON TRACK? 
Seee pheses Soanas | ftPS5Ee toste BHIS 108 sNO-- KEEP ON GO 

Seep OoSsed 10002 1173069 1OSbD CLRB OR? i VES=-ELEAR SECTOR ADDRESS 


005266 Ob2702 s173eb6 Ob270e ADD WBITB!BITO,R2 § ;BUMP TO NEXT TRACK, SECTOR 1 
2889 005272 0227 i173e7¢ Gee704 10$: CMP #1024. %*28.%2,R4 ;ARE WE DONE WITH 28 K? 


160000 ; 
2691 005276 101516 ;173276 101516 BLOS HALTO 5 NES 9° HALT WITH RO= 9 iN BI SPLAY 
eb3e ; BR RXFLSL ;NO-= FILL SILO WITH NEXT SECTO 





Y. ode) 
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005300 
005202 


pos342 
005344 


OOS346 
005350 
005352 
005354 


MOS 
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; WRITE ANOTHER BLOCK== FILL 


SILO 





612711 173300 012711 AXFLSL: MOV —-WRXFILL#RXGO, (RL) ;SET TO FILL SILO 
000001 173302 00000! 
132711 ;173304 132711 {os:  BITB —_wRXTREO!RXDONE,(R1) :READY FOR ANOTHER BYTE? 
po0240 173306 o00240 
001775 173310 001775 BEQ “NO-- WAIT SOME MORE 
100316 {173312 100316 Bel. — RXPERF {DONE-- GO PERFORM WRITE 
112ue1 173314 112461 MOVB © (R4)+.RXDB(RL) iYES-- STORE ANOTHER BYTE IN SILO 
nooode $173316 oooooe 
000771 :173320 000771 BR 108 ;WAIT UNTIL READY FOR ANOTHER 
i HERE ON ERROR AFTER RETRYING -- DISPLAY ERROR REGISTER AND HALT 
012711 5173322 012711 RYEHLT: MOV“ #RXRERR#RXGO,(R1) :D0 A READ ERROR REGISTER FUNCTION | 
032711 3173386 032711 10S: BIT | #RXDONE,(R1) — ; WAIT UNTIL ERROR ASSEMBLED 
40 '173330 000040 
001775 $173332 001775 BEQ «10 Pe 
16100 173334 016100 MOV -RXDB(R1),RO GET ERROR REGISTER 
ponooe 173336 ooo00e 
peo476 3173340 00476 BR HAL TED ;HALT AND DISPLAY ERRORS 
? START -11 HERE TO DO A DUMP TO RXI1 FLOPPY DISK 
! NOTE THAT RO-R7 HAVE ALREADY BEEN SAVED IN 40-S6 
: WHEN BUTTON #1 WAS PUSHED 
3173342 RXDUMP: 
012703 173948 012703 MOV —s§CRXDTRK&BIT@> !<RXDSCT*BITO> .R 
o35401 173344 0354 
012700 '173346 012700 MOV —«-#BITIS!RXWRIT#RXGO,RO ;D0 A WRITE 
100005 '173350 1000 
posoos 173362 ooso0e CLR ORS ;CLEAR INDEFINITE RETRY BIT 
powess 1173964 o0DESe BR RXSTRT SeTART OUMP GOING 








ee eee 


NOS 
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as ;BMB73F - KLIO (PDP-11) 246 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE S 
e334 ; : REGISTER SAVE ROUTINE 
2936 : REGSAV IS CALLED TO SAVE THE GENER aL REGISTERS RO-R7 
2337 ; IN MEMORY AT 40-56 (LOCATION ROTOR? 
2939 CALLING SEQUENCE: 
2940 ; MOV RO ROTOR7+0 
2941 : MOV aR RET, 
oS42 : BR 
ens : RET: <RETURN Rebeny 
2945 > ALL REGISTERS RESTORED 
2948 005356 010037 ;173356 010037 REGSAY: MOV RO,ROTOR7+16  ;SAVE RO AS PC. IN Sb 
2949 005360 000056 ;173360 000056 : 
QO 005362 012700 ;173362 012700 MOV #ROTOR7+16,RO  ;RO NOW POINTS TO S6 
2951 005364 * 173364 OOO0S6 : 
O10640 3173366 010640 ~ MOV SP, -(RO) ;SAVE SP IN SY 
2953 010540 :?173370 010540 MOV RS: -(RU) SAVE RS IN 52 
e954 005372 O10440 ; 0440 MOV 4; -(RO) :SAVE RY IN 50 
e955 00 010340 3173374 u10340 MOY R3,-(RO) :SAVE R3 IN 46 
2956 005376 O10240 :173376 010240 MOV Re, -(RO) i SAVE Re IN 44 
2957 005400 O10140 ;173400 010140 MOV R1’-(RO) ;SAVE RI IN 42 
2958 005402 O14000 5173402 014005 MOV -(RO) RO RESTORE RO FROM 40 
29539 095404 000177 3173404 Gu0I77 IMP JROTOR7+16 :GO TO SAVED PC 


2960 OOS406 OO444E 3175406 OO444E 


~y 





ee ee ree ee eee 
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2961 SMS73F - KLIO (PDP=11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY1I 271657) 22-AUG-75 10:30 PAGE - 
3283 : RPOY DISK BOOTSTRAP AND DUMP ROUTINES 
ax55 : RPOY REGISTER DEFINITIONS 
? ; 176700 RPEPR= 176700 ;EXTERNAL PAGE ADDRESS OF RPO REGISTERS 
2363 : gco000 +RPCSi= 6 ,OFFSET FOR CSR 4] 
2970 : 040 RPTRE= #1714 RRROR 
2371 : 020090 RPMCPE= BIT13 inassaUS CONTROL PARITY ERROR 
2372 : 964009 PDVA= BITLi ; DRIVE AVAILABLE (T0 -11) 
2373 : 900209 RPRDY= BIT UNCTION COMPLETE 
2674 : 009576 RPFUNC= Eliseerraserratettaigit s FUNCTION: 
2975 ; 000020 RPPRST= 20 AD-IN PRESET 
2976 : 000060 RPWRIT= 60 : WRITE bara 
2$77 : 000970 RPREAD= 70 ig DATA 
2378 ; 006001 RPGO= B1TD. 
2979 : g00002 RPWC= 2 
3509 ; RPDA= 6 TRACK nt REGIS } “SECTOR (LOW BYTE) 
298! : 600010 RPCSc= 10 STATUS REG ISTER #2 
296 : 000007 RPUNIT= ata BITO -UNI 
2983 : NANAI2 RPNS= 12 “DRIVE STATUS Cock fete 
2984 : 100000 RPaTAs BITIS sATTENTION ACTIVE 
298s : 040000 RPERR= BITI4 : OR 
23E6 : 000034 : ;DESIRED CYLINDER 
2387 : 
2388 : 
2989 PARAMETERS 
2590 ? : 
299] : 900000 APBCYL= 0. s8007 FROM CYLINDER 0 
2998 : 000000 RPBTRK= 0. TRACK 0 
2993 : 000000 RPBSCT= 0. : SECTOR O 
2994 : 
2965 : 000631 APOCYL= 409. ;DUMP TO CYLINDER 409 
299 : 900015 RPOTRK= 13. : TRACK 13 
2997 : CO0O10 RPDSCT= 8. : SECTOR 
2ads : 
2999 : 
3006 ; REGISTER USAGE: 
3001 : RO -- FUNCTION CODE (H (HIGH BYTE) UNIT # (LOW SYTE) 
3002 : BIT 1S SET IF WRITE 
3003 : Ri -- ADDRESS OF RPCS1 
3004 ; Re -- CYLINDER 
2005 : R3 -- TRACK (HIGH BYTE) SECTOR (LOW BYTE) 
2906 : RY -- WORD 
3007 : RS -- PARAMETER WORD SAVED FROM INITIALIZATION 
0o¢ : SP -- RETRY COUNTER 


_ BO6 


em re ae ee ee ee 
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: HERE TO BOOT FROM RPO4=-- UNIT # IN RO 
| 2173410 Apgoor: 
. 2 3173410 ops002 CLR RR 
Qoe4i2 OOf008 178412 O08 ECR 
53419 STs 
rips4i6 
he 


co 
oOo 


0 +> ~~ 6 -< © p-- gp - 


R3 
&<RPREAD+RPGO) *B178,RO ;SET REGO HIGH BYTE, UNIT # LOW BYTE | 


Ststetststets! 
“IMU GITue 
2 
i 


pec areca a aa reer rmnee cra nnnRTatN 


S 


8 
3 
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Pll ROM CONTENTS TABLES 
;8M873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(E57) 22-AUG-75 10:20 PAGE 6 
o05420 012704 £17320 012704 MOV #-256. ,RY sREAD 256 WORDS TO BOOT 
O054e2 177400 :173422 177400 
: BR RPSTRT :START BOOT GOING 
: START RPOY GOING ON EITHER DUMP OR BOOT 
24 012706 3173424 012706 RPSTRT: MOV RETRY, SP sRETRY RETRY TIMES 
O05426 900012 +:173426 O0001e 
005430 012701 153050 B12701 MOV BRPEPA+RPCS1,R1 ;ADDRESS RPCS1 IN RI 
005432 176700 :173432 176700 
. 8R RPRTRY FALL THROUGH RETRY CODE 
: HERE ON ERROR TO RETRY 
005434 3173434 005705 RPRTRY: TST RS s INFINITE RETRY? 
$05436 idcsde :173436 100402 BMI 10S ‘YES-- TRY AGAIN 
005440 173440 005305 DEC S TRETRY COUNT EXHAUSTED? 
005442 002437 :173442 002437 T RPEHLT YES-- GIVE UP 
posu44 ooo00s ;173444 000005 jos: RESET ;zaAp!! 
005446 110061 :173446 110061 MOV RO,RPCS2(R1)  ;SELECT PROPER UNIT # 
0054S0 000010 ;173450 000010 
o05452 032711 3173452 032711 BIT #RPDVA, (R1) ;IS DRIVE AVAILABLE TO us? 
005454 °173454 004000 
005456 001766 ;173456 001766 BEQ RPRTRY *NO-- TRY AGAIN 
OOS460 012711 3173460 012711 MOV #RPPRST+RPGO,(R1} ;DO ’READ-IN PRESET’ FUNCTION 
N05462 000021 :173460 000021 
005464 010261 :;173464 010261 MOV R2,RPDC(R1) ;SELECT PROPER CYLINDER 
000034 3173466 000034 
005470 010361 :173470 010361 MOV R3, RPDA(R1) ; AND TRACK AND SECTOR 
005472 O000% ;173472 O00006 _ 
005474 010461 ;173474 010461 MOV RY, RPWC(R1) ;SET UP WORD COUNT TO PROPER VALUE 
005476 000002 :173476 Boos 
: ;NOTE THAT IT IS NOT NECC ESARY TO SET UP BUS 
; * ADDRESS, SINCE IT IS O ArieR READ-IN PRESET 
005500 900300 ;173500 SWAB :GET PUNCTION CODE IN LOW BYTE 
005502 110011 3173502 110011 MOVB =- RO, (R1) i START FUNCTION GOING 
005504 500306 : 173504 SWAB =s- RO RESTORE RO 
COSSOE 105711 ;173506 105711 20s TSTB ss (R21) ;READY? 
005510 1 173510 100376 B 20$ WAIT UNTIL IT IS 
005512 41 3173512 032711 BIT SRPTRE! RPMCPE, nid’; ; TRAN ER OR MBC PARITY ERROR? 
gose14 060000 +173514 060000 
16 00134% ;173516 001346 BNE RPRTRY ERROR-- TRY AGAIN 
005520 032761 ;173520 032761 BIT SREATA!RPERR,RPDECRI) ; ATTN OR OTHER ERROR? 
p0ssS22 140009 i1735¢2 10009 
preese ier 5 317 Se5e oes RPRTRY ;YES~- ERROR-~ TRY AGAIN 
005530 005700 ;173530 005700 TST RO “READ FUNCTION? 
005532 100247 ;173532 100247 BPL CLRPC ; YES~ BOOT=- GO TO LOCATION O 


HAL TO ;NO-- DUMP-- HALT WITH RO= 0 IN DISPLAY 



















E06 
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2BMOG.P11 ROM CONTENTS TABLES 
3071 : 
307 ; HERE TO HALT AFTER A DUMP-- DISPLAY RO= 0 IF NO ERRORS 
074 005534 OO0S00C ;173534 00S000 HALTO: CLR RO “DISPLAY RO= 0 TO INDICATE NO ERRORS 

OO5536 999900 3173536 000000 HALTED: HALT  ;DI . 

3002 40 6 3173540 000776 3R HALTED :STAY DEAD 
30793 : HERE ON ERROR FROM RPO AFTER RETRYING-- DISPLAY DRIVE STATUS IN RO 
Sper OO0SS42 016100 ;173542 016100 APEHLT: MOV RPDS(R1),RO sDISPLAY DRIVE STATUS 
2082 005544 poo01e = 173544 d0012 
3083 oo0s$46 090773 3173546 00077 BR HALTED R.I.P. 
3085 Bae 
$088 > START -11 HERE TO DUMP TO RPOY DISK 
3088 : NOTE THAT RO-R7 HAVE ALREADY BEEN SAVED IN 40-56 
3089 : BY PRESSING BUTTON #1. 
3090 : 
3091 + 173550 RPDUMP: 
3092 o055S0 012702 :173550 012702 MOV #RPDCYL, Re 
3093 05552 3173552 000631 
30% 005554 012703 ;173554 012703 MOV #<RPDTRK#BITS> ! <RPDSCT#BITO> ,R3 
3095 005556 006410 : 173556 410 
309 005560 012700 ;17 012700 MOV 8BIT1S!<<RPWRIT+RPGO *BITS>,RO ;D0 A WRITE, UNIT # 0 
3097 Oo05S562 | 2173S6e 130400 
3098 O0SSE4 012704 ;173564 012704 MOV #-<1024.#28.>,R4 ;SET TO DUMP 28 K 

. 3099 905566 110990 ° 173566 110000 
2100 005570 173570 OOSO0S CLR RS sCLEAR INDEFINITE RETRY BIT 
3101 095572 000714 +;173572 000714 BR RPSTRT :START DUMP GOING 
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3102 ;BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23)  MACYII 27(657) 22-AUG-75 10:30 PAGE 7 
3108 ; : INTERNAL BUTTON #4 -- DUMP AND BOOTSTRAP THROUGH DTE2O 
3108 DTE20 DEFINITIONS 
3108 : NOTE THAT ALL DTE2O REGISTER DEFINITIONS AND BIT DEFINITIONS 
3108 ; ARE IN SEF IN SYSMAC. SML 
3211 : 900040 bresiz= 40 sEACH DTE OCCUPIES 20 WORDS IN EXTERNAL PAGE 
ile : 000004 OTEMA :MAX OF 4 DTE’S ON A POP-1 
3114 
ils : BUTTON #4 -- INITIATED BY '-10 RELOAD -11" BIT 
3117 005574 010037 ;173574 010037 | clot MOV RO, ROTOR7+0 ;SAVE RO IN 40 
3118 :173876 40 
3119 Ole 217 Se MOV #10$,RO ;SET RETURN ADDRESS IN RO 
3120 173606 3173602 173606 
312 005604 4 3173604 000664 BR REGSAV ;SAVE RI-R7 
igs ; REGISTERS SAVED-- LOOK FOR THE DTE2O WHICH PUSHED THE BUTTON 
3125 : THE DTE WHICH P PUSHED THE BUTTON SHOULD HAVE THE DOORBELL 
3126 + RINGING HAVE THE VALUE 1365 (OCTAL) IN IT’S 
sie? > TO -10 BYTE COUNT TO1OBC. 
3123 ; NXif (TIME-OUT) TRAP IS USED TO SKIP NON-EXISTANT DTE2O’S. 
3131 OOS606 O0S00S ;173606 oosooS {!0$: CLR RS ;ADDRESS LOCATION ZERO 
3132 005610 012500 ;173610 012500 MOV (RS)+,RO “SAVE O IN RO 
3133 posbie O50 *173612 b1e501 MOV (RS)+, Ri ;SAVE 2 IN Ri 
3134 14 O11502 3173614 O11 MOV :SAVE 4 IN Re 
313 005616 012725 i173616 Ole7es MOV eels! (RS)4 SET iiXM TRAP ADDRESS IN 4 
313 Speese 47883 : 173622 A834 MOV (RS),R3 ;SAVE 6 IN R3 
3138 005624 012715 ;173624 012715 MOV 8PR7, (RS) SET PRIORITY FOR NXM TRAP 
138 005626 000340 ;173626 000340 
stil + LOOP THROUCH ALL DTE’S 
143 630 612704 ;:17 012704 208: MOV BDLYCNT-DTESIZ,R4Y ;POINT TO DTE & -1'S DELAY COUNT REGISTER 
aida Soeese 75858q 315382 938583 
3145 ; (WILL BUMP TO ® 0) 





> + b= > <9 b+ pe 


DOUG LUO—ODD ae ¢ 


GIGI GIGI GIGI GI GIGI GI GIGIGI GIGIGI GIGIGIGI GIG) 
Sin eevee 


b+ b-+ b= b & = b= b= b= p< 2 b+ hs » O—2 He 


on 
™N 


ee EEE EEE 


AGEN dia 15:26 PAGE 72 


! HERE ON NXM TRAP-- RESET SP AND TRY NEXT OTE 





:173634 012706 418: 


3173636 000004 


3173644 105704 


3 173646 100770 
#173650 032764 


3173662 000014 
73664 001365 


;SET SP TO 4, STACK IS LOCATIONS 2 AND 0 


;BUMP TO NEXT DTE’S EXTERNAL PAGE ADDRESS 


RY THIS THE END aa THE DTE’S? 
NOTE THAT THE idey TE 40 
THAT NOW R4=. 7746 
YES-- Sr aey AL OVER, UNTIL A DTE 


0 
;DOORBELL RINGING? 


ese wages es 


SAYS HE PUSHED’ THE BUT 
701108, STAT-DLYCNT(R4) 


*NO-- T 
OBC-DLYCNT(R4S, (PC) 


3 IN IT’ S TO -10 BYTE COUNT? 
;NO-- TRY ANOTHER OTE 


DOES. THis ONE HAVE 1365 
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3168 ;BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(657) 22-AUG-75 10:30 PAGE 7 
3170 : ; WE HAVE FOUND THE DTE WHICH PUSHED THE BUTTON 
172 : ADDRESS OF DLYCNT REGISTER IS IN R4 
3174 OOS666 910315 ;173666 O10215 ° MOV R3, (RS) ‘RESTORE LOCATION 6 
3175 005670 O10e45 :173670 010245 MOV Re; -(RS) : 4 
3178 005672 O1014S :173672 O10145 MOV RI; (RS) : 2 
3177 005674 O10045 ;173674 010045 MOV... RO;-(RS) : 9 
3179 > SAVE FIRST ‘2 DTE REGISTERS DLYCNT TO TOLIDT 
3180 : IN LOCATIONS 130-156 
3182 005676 012700 ;173676 012700 ° MOV #OTESAV, RO sPOINT TO SAVE AREA 
3183 005700 000130 3173700 000130 
3184 005702 012420 :173792 012420 29%: MOV (R4)+, (RO)+ -SAVE A REGISTER 
3185 005704 022700 :173704 022700 CMP BTOLIDT-DLYCNT+DTESAV,RO ; FINISHED? 
3186 005706 000156 ;173706 000156 
3187 005710 103374 :173710 103374 BHIS 295 :NO-- SAVE SOME MORE 
3189 > R¥= TOLIDT+2 
3191 : SET R= STATUS REGISTER 
3132 : R4= DIAGe REGISTER 
3194 : DO "DIAGNOSTIC RESET’ TO CLEAR DOORBELL AND BYTE COUNT 
3195 > LOADED FLAG 
3196 : 
3197 173712 $ssz. 
3198 005712 005724 173712 005724 TST (R4)+ 
3199 005714 010401 317 01040 MOV RY Ri ; SO DOES R1 
3200 005716 012700 3173716 O1 MOV #ORESET, RO *SETUP RO FOR ’DIAGNOSTIC RESET’ 
3201 000109 +:173720 000100 
3202 005722 010021 :173722 010021 MOV RO, (R1)+ :R1 POINTS TO STATUS REGISTER 
| 


ee ee ne eee = — . . “ - a ae ee eee 
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3207 
3508 
32093 
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aR 


us 


8 
S 


3173724 005061 
1 177744 
:173730 005061 
173732 177764 


173734 032711 
:173736 004000 
:173740 001775 
3173742 010014 


5173744 00506 

7173746 177766 
:173750 012761 
:173752 107400 
:173754 1777b2 
3173756 032711 
:173760 004000 
:173762 001775 


173772 005007 


30$: 


; 
; 
; 
° 
s 
’ 


40$: 


REGISTERS: 


14-OCT-76 15:26 PAGE 74 


THE TO -10 ADDRESS. 


CLR 
CLR 


: BIT 


BEQ 
MOV 





I06 






DRESET (DIAGNOSTIC RESET FUNCTION) 
STAT (STATUS REGISTER) 
DIAG2 (DIAGNOSTIC REGISTER #2, WHERE DRESET 1S) 


DLYCNT-STAT(R1) 
TOLOAD-STAT(R1) 


; THE -10 WILL NOW START READING -11 MEMORY, AS SOON AS WE SET 
WHEN FINISHED, THE “10 WILL RING OUR DOORBELL. 


;SET DTE20 FOR MAXIMUM DELAY (ZERO) 
;START DUMPING -11 MEMORY TO -10 


STARTING AT LOCATION O 


4101108, (Rl) 


30$ 
RO, (R4) 


31S DOORBELL RINGING (TRANSFER COMPLETE)? 


;NO-- WAIT FOR DOORBELL 
sYES-- CLEAR DOORBELL AND ERROR FLAGS 


NOW THE -10 WILL GIVE US A 256 WORD SORA ne TO BE READ 


INTO -11 MEMORY STARTING AT rey” NO 


THE 


-10 WILL RING OUR DOOR 


N FINISHED 
AND WE WILL START EXECUTION 


OF THE LOADED CODE AT LOCATION’ 0. 


CLR 
MOV 


TOLLAD-STAT(R1) 


#TO11DB, (R1) 


4O$ 
RO, (R4) 
#BiTIS,RS 


- TO SAY BUTTON 
Pc 





;START INPUT TO LOCATION O 
#IFLOP! <<-256.>&7777>, TOLIBC-STAT(R1) 


356 WORDS, INTERRUPT 


-10 WHEN DONE 
;DOORGELL RINGING (LOAD FINISHED)? 


;NO-- WAIT UNTIL DONE 


CLEAR DOORBELL RING INS 
SET RS: BITIS= 1 


a4 PRES 


, BITO= 0 


56°, RR 6 PoRoED CODE, STARTING AT 








ee ee eee 


JO6 
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3348 :BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 8 
44 : FILL TO END OF ROM 
3245 : 
sou 3173774 O00004 .PRINT <1000>-<.-ROMORC> ;FREE BYTES AT 1090 
3248 005774 900000 ;172774 000 -BYTE 0 
3249 :173775 «=: 000 "BYTE QO 
3250 005776 END.YF: 
3251 005776 O00000 ;:173776 000 .BYTE 0 
3252 2173777 = 000 -BYTE 0 
3253 : 
3254 : e 
3255 : 
3256 ;174000 000001 PASS2: .END 
3257 : 
| 3258 : 
| 


KO6 
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DZBNOG.P11 ROM CONTENTS TABLES 
3259 océ000 
3260 One TPA LOWING IS A REPRODUCTION 
3261 OF THE ROM PROGRAM FOR BM873YG 
3262 RE FOR COMPARISON TO THE 
3263 ACTUAL ROM AND FOR REFEREN 
seb *BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACYI1 27/663) 1-JUN-76 09:14 PASE 1 
seb : .TITLE BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM 
3208 : : THIS IS THE CODE TO BE ENCODED IN THE BOOTSTRAP ROM ON THE 8N@73-YG BOARD 
3270 : 
3271 : MODULE: BM873¢ 
3272 ; 
357 : DATE: JUNE 1976 
3274 ; 
3275 : AUTHOR: RICH MURATORI 
an : 
3578 ‘ : COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION 
3275 : ALL RIGHTS RESERVED 
3280 ; 
3281 : 
328 ; ENABLE ABS, AMA 
3284 : ASCII CHARACTER DEFINTIONS 
3286 : oo0040 SpACcE= 40 sASCII SPACE 
35g? : 090001 §SYN= 1 “ASCII SYNC 
3288 : 000012 LF= 12 ASCII LINE FEED 
3289 : 000015 CR= 15 "ASCII CARRIAGE RETURN 
3290 : 000054 Commas 54 “ASCII COMMA 
3291 : 000006 ACK= 6 ‘ASCII ACKNOWLEDGE 
se3e : 000025 NAK= 25 !ASCII NEG ACKNOWLEDGE 
3o34 : BUFFER AREAS 
3296 ; 002100 {LINBUF= 2100 ;LINE INPUT BUFFER 
$297 : 002310 DEABUF= 2310 *DEASCIIZED INPUT BUFFER 
$699 : DLIIE REGISTER DEFINITIONS 
3301 : 3 176000 OLRCSR= 176000 ;DLIIE RECEIVER STATUS REGISTER 
3302 : 176002 DLRBUF= 176002 ‘DLIIE RECEIVER BUFFER 
3303 : 176004 DLXCSR= 176004 ‘DLIIE TRANSMITTER STATUS REGISTER 
3304 : 176006 OLXBUF= 176006 ‘DLIIE TRANSMISSION BUFFER 
330 Spe : 100000 8171S=100000 
3308 : 
3309 : DTE20 REGISTER DEFINITIONS 


4400 bu yont=1 74400 sDELAY COUNT WORD 
TOLOBC=174414  :TO-10 PDP-11 MEMORY ADDRESS 

174416 TOLIBC=174416  ;TO-11 BYTE COUNT 
174420 TOLOADS174420  ;TO-10 PDP-11 MEMO?Y ADDRESS 


eat 
£wre-oO 
= 
y 
<£ 
-_ 
£ 


| 3307 000340 PR7=7%40 ;PRIORITY LEVEL 7 
| 
| 
| 
| 


Am een ee ee ee oe a me we re ee re ee eee ee ee ey ee eee 7 


| JUNE 1976 MACYL1 27(732) 14-OCT-76 15:26 PAGE 77 
DZBMOG.P1l . ROM CONTENTS TABLES 
. 331s ci 174422 retest 74422 =; TO-11 PDP-11 aM ADDRESS 
3316 : 174426 «=TOLLDT=174426 310-11 POP-11 DATA WORD 
3317 ; 174434 STAT=174434 sSTATUS WORD 
3318 ; TOLIBC REGISTER BIT DEFINITIONS 
3319 : 
4 
t 
a ; ‘ 


a ie ene so eee 











D2SNOG.P11 ROM CONTENTS TABLES 
3320 ;BN873G - KLIO (PDP=11) 256 WORD BOOTSTRAP ROM MACYIL 27(663) 1-JUN-76 09:14 PAGE 1-1 
3324 , 100000 IFLOP=100000 ©; FLIPFLOP BIT 
335 3 DIAG2 DEFINITIONS 
327 : 000100 breseT=000100 ;DTE RESET ‘o 
3359 ; STAT REGISTER DEFINITIONS Ty 


3331 : co¥oo0 fO11DB=004000 ;-10 REQUESTED -11 INTERRUPT ~ 


3334 t DEFINITIONS . . . fy 
3335 ; oooo4o oToR7= 40 :SAVE ROTOR7 INYOTOSS ~ 


H ae | 
3338 : 000130 OTESAv= 130 ;SAVE FIRST le OTE REGISTERS DLYCNT TO TOL1DT 
3339 ; ; IN LOCATIONS 130-156 


3541 173000 ROMORG= 173000 ;ROM STARTS AT 773000 
3343 : ESTABLISH ROM ORIGIN 


3344 : 
3345 ; 173000 - =ROMORG 
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JUNE 1976 
DZBNDG.P11 


52 
be 
66 
3367 006002 
| 
| 


006054 
006055 


MACYL1 27(732) 





ROM CONTENTS TABLES 


;BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-7& 09:14 PAGE 2 


;173000 O000CS 


173020 000403 


3173022 000000 
3173024 173000 
3173026 000340 


173030 112137 


3173034 1 
3173036 001365 
;173040 005005 


3173042 012701 
; 002100 


173082 100375, 


3173054 113711 
3173056 176002 


14-OCT-76 15:26 PAGE 79 


NO6 


-SBTTL BOOT FROM MASTER FRONT END 
;EXTERNAL BUTTON #1 -- LOAD FROM MASTER FRONT END VIA DLIIE 
DEPRESSING BUTTON #1 CAUSES A LOADER UTILITY PROGRAM (DGQDE) TO BE LOADED 


:T0 seats SH THIS THe FOLLOWING CONDITIONS MUST EXIST: 

; HE LORDER U HATER FRONT EM MUST BE RUNNING UNDER KLDCP 

: 2) THE ’.All’ FILE FOR DGQDE MUST TE AVAILABLE ON THE SELECTED LOAD 

: MEDIUM IN THE MASTER FRONT END. 

; 3) THE MASTER te A ae srt SECONDARY FRONT END MUST BE CONNECTED 
: 4) THE SECONDARY FRONT END MUST HAVE A TTY CONNECTED TO IT. 


;SEND BOOTSTRAP REQUEST TO MASTER FRONT END VIA THE DLIIE. THE 
;REQUEST IS IN THE FORM 'B <CR><LF>’, WHICH CALLS FOR THE 
BOOTING OVER OF DGQDE.ALL. 


BUTONI: RESET ;CLEAR THE WORLD 

MOV #2000, SP :SETUP STACK POINTER 

MOV #DGQDE,R1 sADDRESS OF SYNC + BGOT REQUEST 
SENDIT: TST8  @sDLXCSR ;IS+DLIJE READY TO TRANSMIT 

BPL : SENDIT sLOOP UNTIL IT IS 

BR* 1g *BRANCH AROUND POWER -FAIL VECTOR 
HEHEHE HEHEHE EHH EEG 
: REQUIRED POWER-FAIL VECTOR - MUST BE AT 173024 

FILLER 


-WORD O 

«WORD ROMORG, PR7 
5 EERE RARE KEK R ARERR EE EE EER ERE E ERE ER REE EEE EERE ER 
1$: MOVB (R1)+,@8DLXBUF ;LOAD A CHAR INTO OUTPUT BUFFER 


TSTB~—s (R1L) sANY MORE CHARS TO SEND? 
BNE SENDIT :BRA NCH IF MORE CHARS TO SEND 
CLR RS LEAR SYNC RECEIVED FLAG 
sHALT TO RECEIVE BOOT PROGRAM (DAODE. All), ONE ASCIIZED CHAR AT 
IME, ONE LINE AT A TIME. 
Axrud Ns MOV #LINBUF , RI sADDRESS OF LINE INPUT BUFFER 
NXTCHR: TSTB § d#DLRCSR ;CHAR RECEIVED YET? 
BPL NXTCHR ;BRANCH IF STILL TO WAIT 
sPROCESS THE RECEIVED ASCIIZED C ne ALL CHARS UNTIL A SYNC 
‘SIGNAL IS RECEIVED. A LINE Peep ARK THE END OF A LINE. THE MAX 
“NUMBER OF CHARS PER LINE IS 131, THAN THAT IS an ERROR. 
2s: MOVB  @#DLRBUF, (R1) READ CHAR INTO LINE INPUT BUFFER 





, 








eT 


| 


BO? 






JUNE 1977 MACYIL 27(732) 14-OCT-76 15:26 PAGE 80 
DZBMOG.P12 ROM CONTENTS TABLES 
OOBNEO 142711 +173060 142711 Bic 8200, (x1) :CLEAR HIGH ORDER BIT OF CHAR 
355 Bbeces Accead 3153502 Aase44 , 
Stee Soebee PSirce siester Metso Rea CRIS SYN OAR THE EINE ctor 
Soe) rn 
3408 905705 173074 005705 TST RS “HAS SYNC ALREADY BEEN RECEIVED? 
3409 Boe07s 001763 ;173076 001763 BEQ NXTCHR :BRANCH IF NOT, IGNORE CHAR 
3410 006100 122127 3173100 122127 CMPB (RIS +, aL 1S CHAR A LINE FEED? 
3411 O06102 850012 3173102 oddd!le 
3412 OO6104 001419 3173104 O91410 3E9 PACKIT sBRANCH IF YES, END OF LINE 


CO7 


JUNE 1976 MACY11 27(732) 14-OCT-76 15:26 PAGE 81 
DZBNDG.Pil ROM CONTENTS TABLES 


3413 ;8N873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 271663) i-JUN-76 09:14 PAGE 2-1 
S415 008106 020127 ;173106 020127 CMP Rl, SLINBUF +132. ;HAVE WE REACHED THE END OF THE BUFFER? 
S46 006110 OO230% 3173110 Ooe304 
3417 O06lle 003755 153113 003755 BLE NXTCHR sBRANCH IF NOT, GET REST OF LINE 
3418 006114 73? 3173114 004737 ISR PC, NAKSND ‘SEND A NEG ACKNOWLEDGE 
3419 006116 173346 3173116 173346 
$420 006120 :173120 000000 HALT :TOO MANY CHARS IN A LINE 
3422 O06122 HoS205 ;173122 005205 3s: INC RS sSET SYNC RECEIVED FLAG 
$23 006124 000750 :173124 000750 BR NXTCHR GO GET NEXT CHAR 
3425 sUNSCRAMBLE THE ASCIIZED CHARS 9 16-817 WORDS. THE FORMAT OF A 
3426 *LINE IS __E& WROCNT,LADDR, DATA, DAT - DATA, CHKSUN<CR> <LF> 
3427 WHERE WROCNT IS THE WORD’ COUNT 
428 : LADOR IS THE LOAD ADDRESS / 
429 : DATA IS LOAD DATA 
2430 CHKSUM 1S THE CHECKSUM '/ 
3432 006126 612703 :173186 912703 PACKIT: MOV #DEABUF ,R3 ;GET ADDRESS OF DE-ASCIIZED BUFFER 
3433 006130 002310 ;1731 310 
3434 906132 012701 ;173132 012701 MOV #LINBUF ,R1 :GET ADDRESS OF INPUT BUFFER 
3435 006134 002100 :173134 002100 
| $436 006136 e212? ;173136 122127 CMPB = s«(R1)4, #°E sFIRST CHAR IN LINE SHOULD BE AN ’E”’ 
| 3437 005140 000105 5173140 00010s 
3438 006142 O01403 :173142 001403 BEQ 1$ sBRANCH IF IT IS 
| 3439 006144 004737 5173144 004737 ISR PC, NAKSND *SEND A NEG ACKNOWLEDGE 
| 3440 OO6146 17334 3173146 173346 
a4 906150 000000 ;173150 000000 HALT s INCORRECT LINE SYNTAX, FIRST CHAR NOT AN E 
| 3443 006152 122127 ;1731S2 122127 1S: CMPB  (R1)+,#SPACE § ;SECOND CHAR SHOULD BE A SPACE 
| S444 006154 000040 5173154 000040 
| 3445 906156 Oo! 173156 001403 BEG NXTWRO sBRANCH IF IT IS 
| Sau6 160 737 $173160 004737 ISR PC, NAKSND *SEND A NEG ACKNOWLEDGE 
| 3447 O06162 17334 3173162 173346 
SHH 006164 000000 ;173164 000000 HALT s INCORRECT LINE SYNTAX, 2ND CHAR NOT A SPACE 
/ 3450 006166 HoS002 ;173166 O0SO02 NXTWRD: CLR R2 ;CLEAR WORD FORMER 
/ 3451 006170 112100 :;173170 112100 1S: MOVB  (R1)+,RO *READ CHAR FROM LINE BUFFER 
| 3452 006172 122700 +;173172 122700 CMPB sow, RO IS CHAR A CARRIAGE RETURN 
| 3453 006174 900015 ;173174 000015 
| 3454 006176 001774 ;173176 001774 BEG BRANCH IF YES 
| 3455 006200 122700 ;173200 122700 CMPB 3s, RO :1S CHAR A LINE FEED 
MSE O06202 000012 +:17320e O000le2 
3457 Sobeo4 001422 3173204 001422 BEQ 33 sBRANCH IF IT IS 
| eg 122700 3173206 122700 CMPB = &COMMA, RO IS CHAR A COMMA 
| 3459 006219 booosH $173219 o000s4 
| 3460 00621 1415 3173212 OO141S BEQ $ sBRANCH IF IT IS 
| 3461 006214 Labs °173214 006302 ASL Re i SHIFT WORD OVER TO MAKE ROOM FOR 
| 3462 O06216 O06302 ;173216 006302 ASL *NEXT CHAR 
| 3463 006220 0063202 +173220 006302 ASL Re 
| 3464 O06222 000402 ;173222 000402 BR 4 BRANCH AROUND POWER-FAIL VECTOR 
i S465 jeeeevensaeeueaeneancunsuenvanedeseacerenieeatanssnnecanaitans 
abe REQUIRED POWER-FAIL VECTOR = MUST BE AT 173224 


é 
: 
£ 
= 
S 
8 


3173224 173000 -WORD ROMORG,PR7 





wi Oe 


~ 









TUNE 1976 MACYI1 27(732) 14-OCT-76 15:26 PAGE 82 
| OZBNDG.Pi2 ROM CONTENTS TABLES 

3469 O0&226 000340 ;:173226 000340 \ 

3471 P pRRERREPEAE LES LAE EEA AER EEA REELED ES ES EEEELERE LEE EEARESES ELAS AESESS 

3472 . \ 

3473 006230 B32; 173230 006302 4S: ASL Ro 

3474 O0b23¢ 17323e 006302 ASL Re 

Si5e Seen iar 173634 nena Bie Boo RO sCLEAR ASCIIZED BIT 

3438 poesap atte 173240 900100 ; 

3478 OO6e42 950002 :173242 050002 BIS RO, Re sINSERT NEW CHAR INTO WORD 

3123 006244 000751 :173244 000751 BR 13" :G0 GET NEXT CHA 


3481 006246 Aioze3 3173246 O10223 28: MOV Re, (R3)+ ;STORE WORD IN BUFFER 


| 
| 
| 
| 


a ee ee em en ae ee eee 


aaa a 


JUNE 1976 
DZBMDG.Pil 
3482 
3483 
3484 005250 
3485 
3486 006252 
3487 
388 006254 
siee 006256 
331 oeees 
34393 006264 
3494 006266 
3435 006270 
34398 006272 
He hers 
3500 
3591 
3804 006302 
3505 006304 
3507 9006310 
3508 O0063le 
3503 006314 
2510 O063'16 
3511 0063.0 
zel6 006322 
zis ons 
Zi Oieses 
3516 006332 
3517 006334 
3518 
2519 006336 
3520 006340 
3521 06342 
3S22e 006344 
3S23 
3524 
3525 
3526 
3527 O06346 
35e8 006350 
aS 
sou 006360 
35. 
So tees 
3536 006370 
2537 606372 


MACY11 


7(732) 


ROM CONTENTS TABLES 


3BN873G - KL10 (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 


—-O— 
Res 
—O- 
=f 
@eee @2@eee Oe ee ee ee eewee we oe 
0 bh a ht ee 


3173250 000746 
3173252 010223 


3173254 012702 
$1356 002310 


—O- — 
Tu 

wy a 

Co 

TUS SUWO 


os 
RS 


ao 


E07 
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1-JUN-78 09:14 PAGE 2-2 


BR NXTWRD GO FORM NEXT WORD 
3S: MOV R2, (R3)4 sSTORE CHECKSUM IN BUFFER 
“VERIFY THAT THE CHECKSUM IS ZERO. 
GHCKIT: MOV #DEABUF , Re *ADDRESS OF BUFFER 
CLR RO CLEAR CHECK 
18: ADD (R2)+,RO NEXT GORD TO CHECKSUM 
CMP R2,R3 "REACHED END OF BUFFER YET 
BLT 1$ *BRANCH IF 
TST RO *IS CHECKSUM = 0? 
BE LOADIT “BRANCH IF YES 
JSR PC, NAKSND *SEND A NEG ACKNOWLEDGE 
HALT CHECKSUM ERROR 


EIVED DATA -ANTO THE DESIGNATED PLACE IN MEMORY. 
OpRD oun i eat INDICATES A TRARSPER sBLOKk. Gf FF EXECUTING 
if LOADED PROGRAM AT AT THE SPECIFIED ho 

ionort: MOV ABUF , RO ;GET CORD BaRD COUNT 


BEQ es ;BRANCH IF IT’S ZERO (A TRANSFER BLOCK) 
MOV sDEABUF +4, Re ADDRESS OF FIRST DATA WORD 
MOV DEABUF +2,R1 ;GET LOAD ADDRESS 
1S: MOVB (R2)+, (R1)+ ;MOVE DATA FROM BUFFER TO MEMORY 
MOVB (RO)+, (R1)+ ;MOVE DATA FROM BUFFER TO MEMORY 
DEC RO ;DECREMENT WORD COUNT 


BGT 1$ : BRANCH UNTIL ALL DATA IS LOADED 
JSR Pe, ACKSND :GO SEND AN ACK 
BR NXTLIN GO GET NEXT LINE 
2s: JSR PC, ACKSND GO SEND AN ACK 
MOV DEABUF +2, PC ;START ADDRESS OF LOADED PROGRAM 
sNAKSND IS USED TO SEND A a NEG ACK BACK TO THE MASTER FRONT END. 
*ACKSND IS USED TO SEND AN ACK. 
NAKSND: MOV #NAK, RO ;SETUP ASCII NEG ACK 


BR RESPND ;GO_ SEND IT 
ACKSND: MOVB 


#ACK, RO SETUP ASCII ACK 
RESPND: TSTB d@#DLXCSR 31S TRANSMITTER READY? 
Rove AG, aebLxeur = }SEND ACK/AAK’ 
RTS PC ;RETURN TO CALLING ROUTINE 





(eee 


FO? 
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OZBNDG.P11 ROM CONTENTS TABLES 
3538 . 
3539 006374 641001 ;173374 001 OGQDE: .BYTE SYN 
3540 173375 102 TASCIZ 78/<CR><LF> 
3541 006378 OOSOIS :173376 o0S015 
3542 006400 Of0000 31734 000 
3543 173401 O00 .BYTE 0 
3544 006402 900000 :1734 000 "BYTE O 
173403 000 “BYTE 0 
4& O06404 o00000 3173404 000 "BYTE 0 
347’ y 173405 00 "BYTE 
3548 O06408 O00000 :173406 000 “BYTE 0 
3549 173407 ©0000 "BYTE O 
3556 006410 o90000 :173410 009 "BYTE OQ 


: : 

| ; 
3845 ; 
35 ; 

: 

{ 

| 

| 

i 

} 


! 


eee ee ee eee 


GO7 





JUNE 1976 macy g7(7 2) 14-OCT-76 15:26 PAGE 95 
OZBN0G.P11 RON CONTENTS TABLES 
3551 :BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2-2 
3653 : .BYTE 0 
3554 o06412 oooooe : “BYTE 0 
322° oosui4 ooooo0 } ‘BYTE 8 
3557 : "BYTE O 
3558 006416 o00000 : “BYTE OQ 
3559 : BYTE O 
3560 o06420 ocoo00 ; BYTE O 
3561 : BYTE 0 
3562 o0b422 O00000 ; BYTE 0 
3563 "BYTE 0 
3564 o06424 O00r00 ; "BYTE 0 
3565 7 "BYTE 0 
3566 o0s426 oo0000 : "BYTE 0 
3567 :] BYTE 
3568 006430 o00000 : "BYTE 9 
3569 *1 "BYTE 0 
3570 006432 O00000 ; "BYTE 
3571 2] "BYTE 0 
3572 OO06434 O00000 ; "BYTE O 
3573 : "BYTE O 
3574 006436 O00000 :1 "BYTE 0 
3575 : "BYTE 0 
3576 OO6440 o00000 : "BYTE 0 
3273 ooewue oooooe }t BE OO 
3579 ‘I “BYTE 0 
3580 OO6444 O00000 : "BYTE O 
2581 “1 "BYTE 0 
3582 O06446 OO0000 ; "BYTE O 
3583 H "BYTE O 
3584 O064S0 O00000 :1 "BYTE 0 
3585 : "BYTE 0 
3586 o064S2 OO0000 ; ue 
3264 006454 00000 ; “BYT 
3589 21 “BYTE 0 
3% 0064S 000000 31 -BYTE 0 
2 coco comma | eu 
3594 006462 000000 ;173462 000 "BYTE 0 
3595 173463 000 "BYTE 0 
3596 006464 000000 ;173464 “But 0 
3 3173465 -BYT 
3598 O06466 000000 3173466 “BYTE 0 
3599 173467 000 “BYTE 0 
3600 006470 o00000 :173470 000 “BYT c 
006472 OO0000 ;17 NOC -BYT: 0 
* 17347 000 "BYTE 0 
3604 006474 000000 3173474 000 "BYTE 0 
2605 * 173475 -BYt c 
3606 006476 000000 3173476 "BYT 


Yi nn es ee eee 
' 
' 
‘ 
' 


aa ee en ee. eee 


ee 


3607 


Bo 


ota otal 
MONIWUILCWr-O 


BR aR om rls 


;8M873G - KLIO (PDP=-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 


paca e7 (732) 
ROM CONTENTS TABLES 
3173477 000 
ooooce = ;173500 00 
3173501 00 
000000 ;17350e 000 
3173503 000 
000000 ;173504 000 
3173505 000 
000060 ;173506 000 
3173507 000 
000000 3173510 009 
3173511 000 
000000 = ;31735le 000 
3173513 000 
000000 ;173514 000 
3173515 000 
oooo0o ;173516 000 
3173517 000 
000000 ;173520 000 
:1735e1 ocO 
oo0000 6;173S2e 000 
3173523 000 
ocoocd )§3=;173524 000 
3173525 000 
000090 3173526 000 
3173527 000 
oo0cee = 3173530 000 
: 173531 000 
000000 ;17353e 009 
3173533 000 
000000 §=;173534 000 
:173535 000 
000000 ;173536 000 
3173537 000 
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0 
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JUNE 1976 
DZBNDG.P11 


MACY11 27(732) 


ROM CONTENTS TABLES 


;BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 3 


173540 


3173540 010037 
:173542 OO00S6 


173544 012700 
> 173546 BaBOSe 


3173550 Stina! 


; 2140 
3173566 000177 
3173570 004264 


3173572 000000 
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REGSAV: MOV RO, ROTOR7+16 ;SAVE RO AS PC IN S56 















107 


-SBTTL_ REGISTER SAVE ROUTINE 
REGISTER SAVE ROUTINE 


REGSAV IS CALLED TO SAVE THE GENERAL REGISTERS RC-R7 
IN MEMORY AT 40-S6 (LOCATION ROTOR7). 


CALLING. SEQUENCE: 
MOV RO, ROTOR7+0 
MOV #RET RO 
BR REGSAV 
RET: <RETURN HERE? 
ALL REGISTERS RESTORED 


. =ROMORG+S40 


MOV #ROTOR7+16,R0  ;RO NOW POINTS TO 56 


MOV SP, -(RO) ;SAVE SP IN 54 
MOV RS; -(RO) “SAVE RS IN 52 
MOV R4; (RO) :SAVE RY IN SO 
MOV R3;-(RO) -SAVE R3 IN 46 
MOV R2, -(RO) ; SAVE Re IN 44 
MOV R1,-(RO) -SAVE Ri IN 42 
MOV -(RO),RO RESTORE RO FROM 4O 
IMP JROTOR7+16 *GO TO SAVED PC 





. WORD ;FILLER WORD 


JO? 


JUNE 1976 MACY11 E7(732) 14-OCT-76 15:26 PAGE 88 
DZBMOG.P11 ROM CONTENTS TABLES 
3673 ;BM873G - KLIO (POP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 4 
81 ; -SBTTL DUMP AND BOOTSTRAP THROUGH DTE20 


3682 52 INTERNAL BUTTON #4 -- DUMP AND BOOTSTRAP THROUGH DTE2O 
acs : oooo40 ATESIZ= 40 ‘EACH DTE OCCUPIES 20 WORDS IN EXTERNAL PAGE 
3687 : BUTTON #4 -- INITIATED BY '-10 RELOAD -11’ BIT 
3688 ; 173574 ° . SROMORG+574 
3690 906574 410037 ;173574 010037 BUTONY: MOV RO, ROTOR7+0 ;SAVE RO IN 40 
3691 006576 000040 :173576 Gcoo40 
3692 012700 :173600 012700 MOV #10$,RO :SET RETURN ADDRESS IN RO 
3693 O06602 173606 :173602 173606 
sb 00 0755 :173604 000755 BR REGSAV :SAVE RI-R7 
3% : REGISTERS SAVED-- LOOK FOR THE DTE2O WHICH PUSHED THE BUTTON 
3698 : THE DTE WHICH PUSHED THE BUTTON SHOULD HAVE THE DOORBELL 
3699 : RINGING AND HAVE THE VALUE 1365 (OCTAL) IN IT’S 
3700 : TO -19 BYTE COUNT TOIOBC. 
3708 : NXM (TIME-OUT) TRAP IS USED TO SKIP NON-EXISTANT DTE2O’S. 
3704 OO6606 OOS00S ;173606 005005 fos: CLR RS ; ADDRESS LOCATION ZERO 
3705 006610 012500 :173610 012500 MOV (RS)+,RO ‘SAVE O IN RO 
3706 O06612 012501 ;17361le 012501 MOV (RS)+'RI : SAVE ; IN RI 
3707 906614 011502 ;173614 011502 MOV (RS), Re :SAVE 4 IN Re 
| 3708 006616 012725 :173616 012725 MOV #21$' (RS)+ SET NXM TRAP ADDRESS IN 4 
3709 006620 173634 :173620 173634 
3710 O06622 O11503 3173622 011503 MOV (RS) ,R3 ;SAVE 6 IN R3 
3711 O06624 012715 3173624 012715 MOV #PR7’ (RS) :SET PRIORITY FOR NXM TRAP 
sie 006626 000340 ;173626 000340 
| 4 ' LOOP THROUGH ALL DTE’S 
| 3716 006630 012704 ;173630 012704 208: MOV #DLYCNT-DTESIZ,R4 ;POINT TO DTE & -1'S DELAY COUNT REGISTER 
| 3717 006632 174340 i 73e32 174340 
718 ; (WILL BUMP TO # 0) 
| 3720 * HERE ON NXM TRAP-- RESET SP AND TRY NEXT DTE 
sree O0bb34 012706 5173634 012706 21S: MOV 84, SP ;SET SP TO 4, STACK IS LOCATIONS 2 AND O 
| 323 090004 173636 000004 . 
ses OD6640 062704 ;173640 062704 228: ADD #OTESIZ,R4 ;BUMP TO NEXT DTE’S EXTERNAL PAGE ADDRESS 
| 3786 O06642 OO0040 :173642 O00040 
006644 105704 3173644 105704 TSTB sR ;18 THIS THE END OF THE DTE’S? 
3556 ; j NOTE THAT THE L RST pre IS AT 774540 
| 3729 : : AND THAT NOW R4= 774600 IF END 
| 3730 oobe4e 100770 ;173646 100770 BMI 20$ : YES== ooaRY ALL OVER, UNTIL A OTE 
3731 : SAYS HE PUSHED THE BUTTON 
| 3732 oobeso 632764 ;173650 032764 BIT #TO11DB, STAT-DLYENT(RY) sDOORBELL RINGING? 
| 3733 O06652 004000 i 17 3Pe oo4000 
2734 006654 000034 :;173654 000634 


ee tee = ee ee 
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| ag UNE 1976 
| pben0d. Pll 


OC&ESE 
OO&660 
O0&662 
OObEEY 
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001770 
Sa 


Ao1365 


31D Pe pong 
173660 02641 
: 173662 580014 


3173664 002365 


BEQ 
CMP 


BNE 
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ees 
TOl 


22$ 


KO7 


ogc -orvent crus OP) 


:NO-- thy! ANOTH 


en ee ree we ee es a ee ne ew ee re ee ee 


} 


TRY NEXT 
;DOES THIS ONE HAVE i365 


DTE 
HIS 
N IT’S 10-10 BYTE COUNT” 
ER OTE 


EEE 
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;BMN873G - KLIO (PDP-11) 


000156 
103374 


173670 010315 
173674 010045 
3173676 012700 
; 173670 000130 


173706 000156 
173710 103374 


its 7ie 005724 


payed pase 
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256 WORD BOOTSTRAP ROM MACY11 27(663) i-JUN-76 09:14 PAGE S 


29s: MOV (R4)+, (RO)+ ;SAVE A REGISTER 


; WE HAVE FOUND THE DTE WHICH PUSHED THE BUTTON 
; ADDRESS OF DLYCNT REGISTER IS IN RY 


SAVE FIRS] i2 DTE REGISTERS DLYCNT TO TO1IDT 


R¥= TOLIDT+#2 


; : D0 "DIAGNOSTIC RESET’ TO CLEAR DOORBELL AND BYTE COUNT 
















LO07 


MOV R3, (RS) ;RESTORE LOCATION 6 
MOV Re, -(RS) ; 4 
MOV R1,-(RS) ;e@ 
MOV RO,-(R5) ; 0 


IN LOCATIONS 130-156 
MOV sDTESAY, RO ;POINT TO SAVE AREA 


CMP #TOLIDT-DLYCNT+DTESAV,RO ;FINISHED? 
BHIS 29S sNO-- SAVE SOME MORE 


; SET Ril= STATUS REGISTER 
R4= DIAGe REGISTER 


LOADED FLAG 


TST (R4)+ 

MOV 4,R1 ; SO DOES R1 

MOV HORESET, RO ;SETUP RO FOR "DIAGNOSTIC RESET’ 
MOV RO, (R1)+ ;R1 POINTS TO STATUS REGISTER 








JUNE 1976 
DZBMOG.Pil 


if 
tote totes 
Oulcarm 


006724 
006726 
006730 
006732 
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;8M873G - KLIO (POP-11) 256 WORD BOOTSTRAP ROM 


agit 


177764 
032711 


010014 


005061 
177766 


MO? 
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3123704 005061 


1 
173732 177764 


3173734 032711 


173742 010014 


3173744 
;173746 
:173750 
eae 
173754 


‘TST 


173770 
:173772 


3173774 
;173775 


:173776 
+ 173777 


005061 
177766 
012761 
107400 
177762 


032711 


100000 
005007 


000 
000 


000 
000 
c00001 


see ae ae ee wees 


; REGISTERS: 
Ri == Siar 


CLR DLYCNT-STAT(R1) 
CLR TOLOAD-STAT(R1) 


303: BIT #TOLIDB, (R1) 


; NOW THE -10 WILL GIVE US A 256 WORD BOOTSTRAP 9 Sy READ 
qo 11 MEMORY STARTING AT LOCATION 0. WHEN 

; THE -10 WILL RING OUR DOORBELL, 

; OF THE LOADED CODE AT LOCATION O. 


;START INPUT TO LOCATION 0 
MOV #IFLOP!<<-256.>87777>, TOLIBC-STAT(R1) ;256 WORDS, INTERRUPT 


BEQ 308 
MOV RO, (R4) 


CLR TOLLAD-STAT(R1) 


40$: BIT #TO11DB, (R1) 


4O$ 
MOV RO, (RY) 
MOV #BIT15,R5 


CLR PC 


FILL TO END OF ROM 


BYTE OQ 
BYTE 0 
-BYTE OQ 
-BYTE 0 
. END 


MACY11 27(663) 1-JUN-76 09:14 PAGE & 


= ORES T TOT RaNOe ITE RESET FUNCTION) 
RY --  DIAG2 (DIAGNOSTIC REGISTER #2, WHERE DRESET IS) 


THE -10 WILL NOW START READING -11 MEMORY, AS SOON AS WE SET 
THE TO -10 ADDRESS. WHEN FINISHED, THE -10 WILL RING OUR DOORBELL. 


;_710 WHEN DONE 
;DOORBELL RINGING (LOAD FINISHED)? 



















;SET DTE20 FOR MAXIMUM DELAY (ZERO) 
;START DUMPING -1i MEMORY TO -10 


; STARTING AT LOCATION O 
;15 DOORBELL RINGING (TRANSFER COMPLETE)? 


;NO-- WAIT FOR DOORBELL 
;YES-- CLEAR DOORBELL AND ERROR FLAGS 


NISHED 
AND WE WILL START EXECUTION 


;NO-- WAIT UNTIL DONE 
CLEAR DOORBELL RINGING 
SET RS: BITIS= 1, BITO= 0 


;_TO_SAY BUTTON #4 PRESSED 
360 TO LOADED “ODE, STARTING AT 
; LOCATION 0 





| JUNE 1976 
- OZBMOG.P11 


p07000 


007776 
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000177 MAP.Y.: .BLKH 127. 
000001 END-Y.: :BLKW 1 
000177 MAP. YX: SBLKW 127 
ocodo1 END:YX: :BLKW 1 


es ne ee ene re era. 

















Re a re ee eee 
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3832 j REREERESSRSSRESSSSLAAL SE SESS ESEELEL LESS SSELFLESSLESE SESE SES 

3833 : INITIALIZATION AND START UP OF PROGRAM. 

seed H RESSREFSLSLASSSSLSESSAASAELESASESSLSLASKS SAF LEALELELSESFSSSALE 

3836 010000 RESTRT: 

3837 610900 012706 001100 MOV sSCMTAG, R6 ‘FIRST LOCATION TO 3E CLEARED 
3838 O10004 50S026 CLR (R&)+ “CLEAR MEMORY LOCATION 

3839 010006 O22706 001136 EMP aSTKS,RE : DONE? 

3845 b19512 pois SNE 6 ‘LOOP BACK IF NO 

3841 010019 012706 001100 MOV SSTACK, SP “SETUP THE STACK POINTER 
3842 010020 0120737 016302 000020 MOV sSSCOPE, JBIOTVEC -IOT VECTOR FOR SCOPE ROUTINE 
3843 019006 012737 000340 900022 MOV #340, aslOTVEC+2 LEVEL 

3844 010034 012737 016376 000030 MOV #SERROR, JHEMTVEC “EMT VECTOR FOR ERROR ROUTINE 
3845 610042 Gi 000032 MOV 8340, JeEMTVEC+2 “LEVEL 7 

sey6 910050 0} 016726 900034 MOV 8STRAP, JBTRAPVEC :TRAP VECTOR FOR TRAP CALLS 
3847 010056 201 000340 900036 MOV 8340, JETRAPVEC+2 “LEVEL 7 

3848 O10064 Ole7a? 010064 171914 MOV 8. SLP - INITIALIZE THE LOOP ADDRESS FOR SCOPE 
3843 b1007e 00506? 9011 CLR INTTEG s INITIALIZE TO ASK WHICH TYPE 

3850 010076 OO0S0&7 90114 CLR : INITIALIZE TO ASK WHICH T 

3851 010102 012706 101100 START: MOV #STACK,SP -SET THE STACK POINTER 

3852 010106 005067 171104 CLR LSTERR *CLEAR ERROR FLG REPORT 

3853 010112 005037 on0000 CLR *SET FOR UNEXPECTED TRAP TO ADD O 
3854 O10116 012767 010102 ons314 MOV SSTART,PRG.NO :GET READY FOR PWR FAIL BEFORE FIRST TEST. 
3855 010124 012727 ewer 000004 MOV 86, a84 *SET TIME OUT TRAP VECTOR 

3856 019132 005037 000706 CLR :SET TIME OUT STATUS TO CG 

3857 010136 005067 O0% CLR FLAGY :CLEAR TEST 4 INITIAL FLAG 

3858 010142 005737 OOddCI4e2 TST asd2 *AM I RUNNING UNDER ACT-11?? 

3859 010146 001002 % BNE ae *BR IF #WE ARE® UNDER ACT-11!! 

3860 9510150 000167 oD0456 JMP ONT “JUMP IF NOT ACT-11 

3861 9510154 013746 OdO00004 MOV ae4, -(SP) :SAV TRAP POINTER 

3862 O10160 012737 011269 000004 MOV #NOROM. a84 *PUT IN A NEW ONE 

3863 O10166 005737 173000 : TST 173060 -TRY TO READ THE ROM 

3864 010172 o00240 NOP “WAIT FOR POSSIBLE TRAP 

3865 010174 012637 MOV (SP)+.384 :IF NO TRAP RESTORE POINTER 

3866 010200 026737 171174 173000 CMP MAP. YA, 38173000 :DOES 1ST WORD COMPARE? 

2867 010206 001034 BNE 4 *CHECK NEXT MAP 

3868 919210 013746 MOV ae4, -(SP) -SAVE LOC 4 

2869 10214 012737 010236 oo0c04 MOV #65$, 084 -SET FOR TIMEOUT 

3870 Ol0e2e2 005737 1 TST 73 *READ FROM 173400 

3871 910226 o00240 :IF NO TIMEOUT, NOT YA 

3872 019230 912637 o00004 MOV (SP)4,a84 “RESTORE LOC 4 

3873 O10234 o00421 BR y 

2874 010236 6S$: CMP (SP)+, (SP)+ s ADJUST STACK 

3675 Oide4d O1 090004 MOV (SP)+a84 "RESTORE LOC 4 

3876 010244 012767 001400 000772 MOV eMAP.YA, TABLE 31ST MAP ADDR 

2877 010eS2 012767 001776 000766 MOV #END.YA,ALLEND ;LAST MAP ADDR 

3878 010260 Ole767 173376 000770 MOV 8173376,LASTA ;LAST ROM ADDR 

2879 010266 012767 O00101 O0S266 MOV #000101; VERSON ;SET ROM TYPE 

3880 010274 000167 001174 J START TEST | 

3881 010300 64S: 

32682 010300 737 171474 173000 CMP MAP. YB,98173000 ;DOES 1ST WORD COMPARE? 

3883 610306 1016 BNE £93 ; NEXT MAP 

3884 010310 012767 o02000 000726 MOV .YB, TABLE ;1ST MAP ADDR 

3685 010316 012767 002776 000722 MOV #END.YB,ALLEND ;LAST MAP ADDR 

3686 010324 012767 173776 0007 MOY #173776,LASTA LAST ROM ADDR 

2887 010332 012767 o00102 Oo0S22e2 MOV #000102; VERSON :SET ROM TYPE 
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000167 001130 as IMP PRG! START TEST 1 
737 172430 173000 CMP MAP.YC,9#173000 ;D0ES 1ST WORD COMPARE? 
1036 BNE 2ug ‘CHECK NEXT MAP 

013746 ooc004 MOV a4. -(SP) ;SAVE LOC 4 

012737 O10404 oD0004 MOV #76$, 084 -SET FOR TIMEOUT 
737 173005 173400 CMP MAP. ¥C+400, 38173400 -1$ IT YC? 

1004 BNE 77 : not’ y 

012637 oo0004 MOV (SP)+, da4 ‘RESTORE LOC 4 

000404 BR 783 ‘YES IT 15 @ YC 

022626 765: CMP (SP)+, (SP)+ ‘ADJUST STACK 

012637 o00004 77§: MOV (SP)+;aa4 ‘RESTORE LOC 4 

000416 785 BR 74$ ;CHECK NEXT MAP 

012767 003000 o00622 MOV SMAP.YC, TABLE ;1ST MAP ADDR 

012767 003776 OO0616 MOV 8END.YC;ALLEND LAST MAP ADDR 

012767 173776 O00620 MOV #173776,LASTA 3LAST ROM ADDR 

Ole767 000103 OOS1IEé MOV #000103, VERSON :SET ROM TYPE 
167 901024 oe IMP PRGI :START TEST | 
737 173324 173000 CMP MAP.YD,9#173000 ;DOES 1ST WORD COMPARE? 

001016 BNE ? “CHECK NEXT MAP 

012767 o04000 oDosss MOV #MAP.YD,TABLE :1ST MAP ADDR 

012767 004776 o00SS2 MOV 8END.YD,ALLEND ;LAST MAP ADDR 

012767 173776 OO05S4 MOV #173776,LASTA :LAST ROM ADDR 

012767 600104 o0S052 MOV 8000104; VERSON :SET ROM TYPE 

000167 oa J PRG1 :START TEST | 

026737 174260 173000 CMP MAP. YF,38173000 ;DOES 1ST WORD COMPARE? 

aninis BNE 4 *CHECK NEXT MAP 

012767 ooso000 on0s1e MOV SMAP.YF,TABLE 31ST MAP ADDR 

012767 005776 MOV #END.YF,ALLEND ;LAST MAP ADDR 

012767 173776 000510 MOV 8173776,LASTA :LAST ROM ADDR 

012767 O00106 0o0S5006 MOV SO00106;VERSON :SET ROM TYPE 

000167 000714 a IMP PRG1 START TEST 1 

026737‘ 175214 173000 CMP MAP.YG,3#173000 ;D0ES 1ST WORD COMPARE? 

001016 BNE 83% *CHECK NEXT MAP 

012767 006000 o00446 MOV SMAP.YG, TABLE :1ST MAP PDDR 

012767 006776 oo0442 MOV #END.YG,ALLEND LAST MAF ADDR 

912767 173776 O00 MOV #173776,LASTA :LAST ROM ADDR 

Ole767 600107 Ooc4742 MOV 8000107; VERSON ;SET ROM TYPE 

000167 o00650 a IMP PRG1 :START TEST 1 

104400 011360 TYPE ,NMATCH ;NOT BM873YA OR B ORC ORD ORF ORG 

vicars pS me? 000416 CONT: TST — INITFG sIS THIS THE FIRST TIME START UP? 

001145 BNE 35 *BR IF NOT FIRST TIME HERE. 

005167 000410 COM INITFG SET THE FLAG 

104400 012066 2s: TYPE  _, BNB73X *TYPE THE GUESTION. 

104412 RDLIN 

ized MOV (SP)+,.Ro 

ii MOV (R2),R2. sPLACE CHARACTER INTO Re. 
dee7te oocose chp S2,k2 ‘WAS * HIT?? 


4 : NO 
000352 MOV eMAP.Y.,TABLE ;SET FOR START OF TABLE 


< 
8 
= 
8 
8 


2 


A 


~ 


etetatetete 
SREY 


mnnnaeTYS | 
SEREE EEDA 


OO bb = 0 0 0 0 0 = 0 0 0 = FB = 2 b= = = 0 BF bb 9 Bb 0 = & * 9-2 B= 9 0 = § = f= 9-2 0-2 = b-< 9 §—— 6 Be 9 2 Ho Bo 


<£ 
=] 
= 
» 


na 


pare 


S33 


ae a ae ee ee ee nr ee, oe | 


GRANSTOSRNE SERN LR SRRR Se ORO Eee 


ESRVRERRARUC LULL: RERERERR 


rT 
ee 
Oo 


a ne ne ee ee ee ce ee eee 


MACYI1 27(732) 14-CCT-76 15:26 PAGE 95 
ROM CONTENTS TABLES 
012767 007376 O00346 MOV BEND.Y.,ALLEND ;SET END OF TABLE 
Ole767 173376 000350 ae MOV .° #173376;LASTR SET LAST ROM ADDR 
042702 00040 BIC #40, R2 CLEAR LOWER CASE BIT JUST IN CASE 
See; Ge 000101 CMP #101,Re ~$HaS @ HIT? 

1011 BNE 65$ BR IF NO 
912767 001400 O00316 MOV aMAP. vA, TABLE .:SET FOR START OF TABLE 
012767 001776 O00312 MOV BEND. YA,ALLEND ;SET END O 
012767 173376 00314 = MOV 8173376" LASTA SET LAST Ron AER 
022702 000102. CMP #102, Re sWAS 8 HIT?? 
901011 SNE b6$ _ $BR_IF_NO 

12767 02000 ororEs MOV @MAP.YB, TABLE SET FOR START OF THBLE 
Ole767 002776 o00262 MOV 8END.YB;ALLEND :SET END 0 
Ole767 173778 So0ce4 pe MOV 8173776,LASTA SET LAST RON ABBR 

000103 CMP #103,R2 WAS C HIT? 

O01011 BNE 57$ BR IF_N 
012767 000236 MOV SMAP.YC,TABLE SET FOR START OF TABLE 
012767 003776 O00e32 MOV 8END.YC,ALLEND SET E TABL 
012767 173776 GOOe34 aa MOV #173776,LASTA ;SET LAST ROM ADDR 
022702 000104 CMP #104,R2 ;WAS D HIT?? 
OO1g11 BNE 68S °BR IF NO 
012767 oo4000 on0206 MOV WMAP.YD, TABLE  ;SET FOR START OF TABLE 
012767 004776 O00202 MOV SEND. YD;ALLEND :SET END E 
612767 173776 O00cD4 ‘oe MOV $173776,LASTA :SET LAST Ron ADOR 
022702 000106 CMP #106,R2 WAS F HIT?? 
001011 *BR IF NO 
Die?e poso00 990156 MOV #MAP. YE, TABLE SET FOR START OF TABLE 
12767 005776 152 MOV #END.YF;ALLEND SET END OF TABLE 
012767 173776 006154 we MOV. #173776,LASTA ;SET LAST ROM ADDR 
022702 000107 CMP #107,Re2 WAS G HIT?? 
001011 BNE 708 BR IF 
012767 006000 000126 MOV YG,TABLE SET FOR START OF TABLE 
012767 006776 OO0l22 MOV SEND: YG;ALLEND :SET END OF TABLE 
012767 173776 000104 ta MOV #173776,LASTA ;SET LAST ROM ADDR 
910267 oo4424 MOV R2, VERSON ;STORE VERSION TYPE.. 
095767 O00102 TST TABLE “HAS A MAP BEEN SELECTED? 
001003 BNE 3s BR IF OK... 
104400 012143 TYPE BM. ERR ; TYPE ERROR 
000635 BR 25 GO AND GET CORRECT 
104400 015104 3S: TYPE MSG “TYPE MESSAGE FOR test NUMBER 
104412 X.X.:  ROLIN 
012602 MOV (SP)+.R2 
011203 MOV (R2).R3 sMOV THE CHAR TO R3 
022703 000061 2s: CMP #61,R3 :WAS 1 HIT?? 
90 1902 BNE 4 BR IF_NO 
000167 000276 IMP PRG1 GOTO PRG 1 
022703 000062 4g: CMP 862,R3 *WAS 2 HIT?? 
001002 BNE S$ :BR IF 
000167 001006 IMP PRG2 GOTO PRG 2 
022703 000063 S$: CMP #63,R3 WAS 3 HIT?? 





ANWOVOVOOVOONO000000000 
> + b-< >< 0 © 6 & 2 b ~~ 6 = B= 6 = & = & = p= p= pp = ~~ p= pw 
0-+ b= 0 b+ b= b— & ~ B+ B -> &-= B= po 9 = 2 Bs 9-2 9 = 


ee 
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14 901008 BNE si ;BR_IF_NO 
18 poo be 001734 JMP PRG3 :GOTO PRG3 
2 022703 oO0064 6S: CMP #64,R3 suns : + 
558 Bone? 002732 sig 4 
234 104400 015310 33: TYPE M.QM eer 1 oR 2 0R 3 OR 4 WAS HIT 
ei 500167 176534 cont inp RESTRI YPE "2?" GO TO THE BEGINING. 
246 000000 LLEND: 0 
esc 007400 EXTMAP: MAP. YX 
2S2 007776 TEND: END. YX 
See 900000 INITFG: 9 
000000 L : 9 
260 194400 011270 NOROM: TYPE ,NOROMS ;TYPE CAN'T FIND @ RESPONSE 
gee gogg6 HALT :NO LOADER INSTALLED? 
270 005015 051124 050101 NOROMS: .ASCII ¢1§)<129/TRAP TO 4 ON IST READ OF 173000/ 
331 015 o444le O20le3 -ASCIZ <15)<12>7I1S LOADER INSTALLED?/ 
369 005015 O40S03 023516 NMATCH: .ASCII <15><le>/CAN’T IDENTIFY LOADER AS YA,YB,YC,YD,YF OR YG AFTER/ 
nats 15 O414le oOs0115 ASCIZ <15><12>/CMP WITH LOC 173000/ 
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000224 


000001 
173776 


173776 
177346 
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167412 


165742 


165712 
000176 
000166 





FO8 


PROGRAM 
; THE PURPOSE OF PROGRAM 1 IS TO READ THE ROM AND 
; VERIFY THAT THE DATA IS CORRECT. ALL ADDRESSES 
; ARE READ, EXCECPT THE TRAP VECTOR, FIVE TIMES. 


S THE SECOND PART OF THIS TEST VERIFIES THAT TRYING 
;T0 lg at THE ROM ReSuTS IN IN f fin OUT TRAP. 

ESS ARE WRIT iti “4 
FEN ARE EXPECTED TO TRAP 


PRG1: MOV #PRG1 PRG. No T FOR PUR 
MOV te06, 160 160 TH Is TEST "300:8) rns. 
PRG.1: MOV Oe UNEXPECTED T 
MOV a0. TRA ae ieET BECGINING SDpRESS 
MOV ae LPADR IF SWi4=1; GOTO 2$ WHEN SCOPE IS HIT 
MOV Tage, Fa :SET START OF MAP 
MOV LASTA;LAST SET LAST ADDRESS 
1$: MOV , ;D0 EACH ADDRESS S TIMES. 
2s: CMP #173024, R0 DONT HE VECT 
BNE ?BR IF NOT THE VECTOR ADD. 
CMP (RO)+, (R4)+ “UPDATE TO NEXT 


20S: CMP #179224, RO *DON’T DO THE TRAP VECTORS 


BNE 3 *NO THIS ISN’T A TRAP VECTOR 
CMP (RO)+, (R4)+ “UPDATE THE POINTERS.. 
21$ MOV 4, SGDDAT 
MOV RO: $BDDAT 
MOV (RO), TEMPY ;READ THE ADDRESS 
MOV (R4): TEMP3 "READ THE SOFTWARE ADDRESS 
CMP TEMPS, TEMPY 
BEQ ;BR IF GOOD 
ERROR 1 * INCORRECT COMPARISON. 
22$: BIT #BIT11,SWR QUICK PASS. ? 
BNE 233 iBR a YES 
DEC R3 HAS THAT ADD BEEN READ S TIMES? 
BNE 2$ :BR IF NOT 5 TIMES 
238: cHP LAST, RO sWAS bPSt <fODRESS CHECKED? 
COPE K on Pur S IF SW14=1 
aap (RO)+, (R4)+ teat THE Both poRESS 
BR 1$ “CONTINUE THE TEST. 
10$: § BIT #BITO, SWR sEXTENDED WORD TO. BE CHECKED? 
BEQ 3$ *BR IF NO CHECKING 
CMP #173776,LAST | 3IS ALL THE TEST DONE? 
BEQ 3$ BR IF 
MOV #173776,LAST | ;SET LAST ADDRESS. 
MOV EXTMAP, R4 SET EXTENDED MAP. 
TST (RO)+ *POP_POINTER 
BR 1$ GO DO THE TEST. 



























JUNE 1976 MACYL1 27(732) 14-OCT-76 15:26 PAGE 98 
DZBMOG.P11 ROM CONTENTS TABLES 
4067 :TEST THAT WRITTING ROM RESULTS IN A TIME OUT 
4068 : TRAP. 
4 167172 33: MOV 3 PADR SW14=1 GOTO S$ COPE_IS HIT 
2 

deo BttS TS B18 786 Pade as Hoy +1280 RS ger Ry ats aise abies a SFE Rds 
4072 011720 0127 11766 ooo004 MOV 
4073 11726 bie70 ooo005 4g: MOV ‘Bs veal AbD” 5° Yims 
4074 O11 700 173024 cs: CMP Lael RO "CHECK FOR A TRAP VECTOR 
apoE pies vice Bye ea 5) sBR ITN SHE” FeO B TER POINTER 
ub7> Bitous B52980 173204 24S: CMP 4173224, RO ‘CHECK FOR THE OTHER VECT 
4078 011746 001001 SNE 2s :BR IF NOT THE VECTOR 
4079 11750 TST (RO)+ ‘UPDATE THE POINTER, 
4080 O11 12710 177777 25$: MOV #-1, (RO) {WRITE ROM WITH 
408i 011756 O00240 | NOP WAIT ONE INSTR. TIME 
4082 011760 010067 167242 MOV RO, TEMP4 
4083 011764 104002 ERROR 2 sWRITING ROM DIDN'T TIME OUT. 
4084 011766 012706 001100 6S: MOV STACK, SP *RESTORE STACK 
4085 011772 0320767 OO4000 165570 BIT #BIT11,SWR 3 QUICK Pass? 
4086 012000 O00! BNE 308 
4087 012002 DEC R3 DO EACH ADD S TIMES 
4088 012004 001352 BNE oS "NOT DONE WITH THIS ONE YET. 
apse 012006 032767 O00001 165554 30%: BIT #8170, SWR sEXTENDED 128. WORDS TO BE CHECKED? 
4091 012014 001404 BEQ 318 ;5R TF N 
4092 012016 O22700 173776 CNP 8173776, RO "HAVE ALL 256. WORDS BEEN CHECKED? 
4093 Ol2022 001407 BEQ 7§ *BR IF ALL DONE 
ages pens reed 177224 318 BRP ear RO sKEEP etd 
4096 Bteps8 rat BEQ $C HAVE aE. 12g, WORDS _DONE? 
4097 012034 O00004 32$: SCOPE “CHECK SW14 FOR FREEZE!! 
4098 012036 005720 | TST (RO)+ : UPDATE TO NEXT ADDRESS 
4099 012040 000732 - BR 4§ GO DO IT AGAIN 
4100 O1e042 005367 167152 73: DEC ICOUNT ‘ITERATION COUNT DONE? 
4101 012046 001004 BNE :BR IF NOT DONE. 
4102 012050 004767 003426 JSR PC, EOP “TYPE END MESSAGE 

| 4103 O12054 000167 177414 JMP = PRGI ;G0 00 IT AGAIN. 
4104 012060 000167 177424 QS: IMP PRG. 1 GO RESTART. 

4198 012064 00000 LAST: O 

| 4107 O12066 OO0SO1S O40515 047111 BMB73X: .ASCII <15>«12>/MAINDEC-11-DZBMDG/ 

Olei11 015 oO42012 053105 SASCII <15><12>/DEVICE VERSION/ 

| 012131 O15 O4i0le 034115 “ASCIZ <15><12>/BM873- y/ 

012143 O15 O250i2 oO404S4 BM.ERR: :ASCIZ <15><12>/#,A,B,C,D,F,G ONLY./ 

012171 040 O20049 O42526 VERS: .ASCIZ / VERSION: BM8?73-Y7 

012216 EVEN 

; 


JUNE 1976 MACY11 27(732) 14-OCT-76 15:26 PAGE 99 
BoBHOG. Pll ROM CONTENTS TABLES 
4108 : PROGRAM 
4109 sBLIND READ M ROM. 
4110 THIS PRO A MELE Dune THE CONTENTS OF THE ROM OUT 
411 IBERPORMING. NO CH G AT ALL. 
Hig “PLEASE NOTE: NO meats IS DONE. 
4114 012216 912767 012216 003214 PRG2: MOV #PRG2,PRG.NO  ;SET FOR POWER FAIL 
4115 Ole224 012737 015442 Oo0004 MOV #NO.TRAP,d#4 SET FOR UNEXPECTED TRAP TO 4 
4116 Olee32 016767 177020 177624 MOV LASTA, LAST 
4117 0122040 767 OO0002 177616 ADD LAST 
4il Oecd 012700 173000 21$: MOV #173000,RO ;SET RO WITH THE STARTING ROM ADD. 
4118 Ol 016703 176766 MOV TABLE, R2 :SET POINTER. 
4120 012256 104400 012576 TYPE  ,DH.2 TYPE MESSAGE 
4121 Ol22b2 104400 012660 TYPE DH. 2B ‘TYPE THE HEADER 
4122 Ole266 012767 7 166726 1S: MOV 7, TEMPS :SET COUNTER 
ui flazre GL? 166 RY ogurithee = fete 
4125 piss7s stata 1b 785 MOV 1’ TEMP Ri 
4126 012306 7? 907000 176730 CMP #MAP.Y., TABLE TF BMG73. Yx SELECTED; FILL TABLE 
4127 012314 O01001 BNE 225 *BR IF NOT BMB73. Y 
4128 012316 011023 MOV (RO), (R3)+ “FILL THE TABLE.. 
4129 012320 225: TST (RO)+ *POP THE POINTER. 
4130 Olese2 104400 015324 TYPE ,MCRLF 
4132 012326 016746 166672 MOV TEMP3, -(SP) 
' 4133 012332 104402 TYPOC 
| 4138 012334 104400 015315 TYPE ,MSPACE TYPE THREE SPACES. 
4136 
4137 O12340 O16746 1bbbb2 MOV TEMPY, -(SP) 
4138 012344 104402 TYPOC 
4139 012346 01100! 73: MOV (RO). R1 ;STORE ROM DATA 
4140 012350 010067 166650 MOV RO, TEMPS :STORE ROM ADDRESS 
4141 O1e54 010167 ibe646 MOV TEMP4 ; PREPARE DA TA FOR TYPE OUT 
4142 012360 7 007000 176656 CMP RNAP SY TABLE ils BHE?3. Y# SELECTED? 
4143 012366 001001 BNE 
4144 b1e370 011023 MOV (RO), (R3)+ erie THE DATA TABLE 
| ais 01 720 23: TST (RO)+ ‘POP THE POINTER 
aiN7 012374 104400 015315 TYPE  ,MSPACE 
4149 012400 016746 166622 MOV TEMPY, -(SP) 
4160 012e404 104402 TYPOC 
| 4152 012406 700 177452 CMP LAST,RO ;HAS THE HIGHEST LIMIT BEEN HIT? 
| 4153 Ole4i2 001404 BEQ 2g ;BR MG L DON E. 
4154 012414 367 166602 DEC TEMPS iDEC ASE COUNTER 
415S Ole420 001352 BNE 7§ R IF NOT O; KEEP GOING 
HSB Ole422 000721 BR 1$ ‘G0 TYPE ADDRESS NO 
| 4158 012424 032767 OO0001 165136 25: BIT #B1T0, SWR 31S THE EXTENDED 128. WORDS TO BE CHECKED?? 
| wie TRE eae ay 81734 0,R0 Re ! 8 INTER OF ROM 
| 416] sid sae 172e04 MOV nap, AS Point MAP POINTER 
“ibe 010444 104400 O1e772 TYPE + TPE seu 
| 4163 012450 104400 TYPE | DH. 4 ‘TYPE ADDRESS AND +XX 
| 
| 





JUNE 1976 
DZBNOG.P11 


012SS6 


BORER 


3 


ONndMIOOOO000000 
BS 
— 


ee eo ee Se ee en ee ee ee eee 


2 





MACY11 27(732) 
ROM CONTENTS TABLES 


pierey 
11001 


91 
104402 


00 = 
o 


010167 
104400 


016746 
104402 


000007 166540 6&8: 


166534 
166532 


015324 
166516 
015315 
166506 


166474 
16647e 


015315 
166462 


174000 
166440 
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07 TEMPS 

R1; TEMP4 
ROIS (R3)+ 
MCRL 
TEMP3, -(SP) 
MSPACE 
TEMPY, -(SP) 
(RO), RI 

RO, TEMP3 

R1, TEMP4 

, MSPACE 
TEMPY, -(SP) 


(RO)+, (R3)+ 
#174000, RO 


TEMPS 
8 
6$ 


o 
AA Ao 
+ 





:SE7 no VS OUT COUNTER 


STORE R 
: STORE THE DATA IN SOFTWARE MAP 


; SAVE THE ROM DATA 
VE ROM ADDRESS 
SET DATA FOR TYPE OUT 


Rast ie DATA_IN SOFTWARE TABLE 
FS fleeee LIMIT BEEN HIT? 


BB FABLE COUNTER 

BR TO wer TYPE DATA 
;BR_TO TYPE ADDRESS 
CLEAR DATA LIGHTS 

sHIT to oreo TO PROCEED. 


06 ADD+10 ADD+12 
12><12>/EXTENDED 128. at 
l2>/CONTENTS DUMPED IS P 


D ROM DUMP./ 
ACED IN THE SOFTWARE/ 
le>/MAP. DATA SHOULD BE VISUALLY INSPECTED! / 
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ee0e2 psssssses sespseesee 
SMeR? RSTEORONS ORO Re ISTE 


ee Soo oe a oe ee 
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010167 


013156 002254 
176054 


000770 
915217 


000340 
000114 


01531C 
000704 
015324 
165734 
165730 


015315 


175734 
165702 


000622 





JO8 
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165744 


; PROGRAM 


; PROGRAM 3 i THE SAME AS PROGRAM 1 ONLY YOU THE 


;USER HAS T 
; COMPARE 
;NOTE TH 


PRG3: 


XHOLD: 


1$: 


10S: 


SRV.D: 


L 
ADDRESS 


ee tot af my Y | R_THE MAP WHICH IS 
19 THe He ROM ADDRESSES 
F LloniINe. COnMAN 


INSERT DATA: HIT LINE FEED TO ESCAPE. 

RUN THE PROGRAM 

LIST THE SOFTWARE TABLE ON 

INPUT THE ADDRESS. OF FON ATA YOU WANT TO ALTER. 

RETURN- WHEN IN THE DATA INPUT MODE A CARRAGE RETURN 
WAITS FOR NEW DATA. 


&PRG3, PRG.NO ;SET FOR POWER FAIL 
T jDEFAULT STARTING ADDRESS TO MAP 


R1, ADDRESS ;SAVE THE SOF THARE ADDRESS 

, MASTER TYPE AN 

(SP)+,R2 

(Re) Re 

#40, Re ;CLEAR LOWER CASE erT JUST IN CASE 
#119, Re *WAS AN "L" (LIST) HIT? 

SRV.L 

#104, Re ;WAS A “D" (DATA) HIT? 

bee, Re ;WAS AN “R™ (RUN) HIT? 

SRV.R 

#10i,R2 ;WAS AN “A” (ADDRESS) HIT? 

SRV.A 

M.OM YPE QA "2" 

XHOLD NE LTHER A “L”,"P"."D","R"."A",OR CR WAS HIT. 


ADDRESS, TEMPY ;RESET ADDRESS POINTER. 
TEMPY , -(SP) 
EMPY' RI 


,MSPACE 

(SP)+, (RL) ;STORE DATA 

(R1)+ ;UPDATE THE SOFTWARE ADDRESS 
EXTEND, Ri ;1S THE LIMIT EXCEEDED 

7§ SINPUT '.IMIT EXCEEDED!! ERROR. 
RL TEMPY SAVE THE ADDRESS. 


ig 
TEMPS, - (SP) 


R1, ADDRESS ;SAVE THE ADDRESS FOR GOOD 





_ Ln et tt tt tt att tt LL TN A Ct CC CC CL CE 
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4eSe O1334e 
4253 013346 
4254 Di Sas8 
iso 

4887 

4258 

4259 

4260 

4261 Oi 3398 
4 0133 
4263 013364 
4264 

4265 

4265 

4267 

4268 

4269 

4270 013370 
4271 013370 
4272 013374 
4273 013402 
4274 013406 
4275 Ol34le 
4276 013420 
e77 O134e4 
4278 013430 
4279 013432 

4280 

4281 013436 
4e8e O1344e 
4283 

4e84 Ois444 
4285 

4286 013450 
4287 013454 
4288 

4289 013456 
4290 

4291 O1346e 
4292 O13466 
4293 O01347e 
4294 

4e9S 013474 
4236 013500 
4297 013502 
4298 

4299 013506 
4300 


RAG 


rat 
83 


in areas 
2 oor 


s 
fale lelelej=jej=)=) 
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000167 
104400 
000167 


104414 
012667 
000167 


001356 
000731 
032767 


177626 
Q 


00008 
177604 


000176 


165602 
165574 
015324 
165562 


015315 
1e55S2 
015315 
165540 
165532 


165526 
015315 
OCO0bE 
165476 


000001 164032 


73: 


JMP 
TYPE 
JMP 


KO8 
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XHOLD 
M1. QM 
XHOLD 


TYPE A" 


3 YOU ARE HERE ven CeRE YOU Hy AN “A” 


TOLD ME YOU WERE GOING 
SRV.A: RDOCT 
MGV (SP)+, ADDRESS 
4S; JMP XHOLD 
YOU ENTERED HERE BECAUSE 
"YOU TOLD ME YOU WANTED A 
:SO HERE IT IS. 
SRV.L: 
MOV TABLE Ro 
MOV ALLEND, DEAD 
TYPE  ,MSG4 
TYPE DH. 28 
1$: MOV 47, TEMPS 
MOV (RO), TEMPY 
MOV 0. TEMP3 
TST RO)+ 
TYPE  ,MCRLF 
OV TEMP3, -(SP) 
TYPOC 
TYPE _,MSPACE 
MOV TEMPY, -(SP) 
TYPOC 
TYPE ,MSPACE 
23: MOV (RO), TEMP4 
MOV RO, TEMP3 
TST (RO)+ 
MOV TEMP4, -(SP) 
TYPOC 
TYPE  ,MSPACE 
38: MOV DEAD, R3 
TST (R3)+ 
CMP RO,R3 
BEQ c$ 
4S; DEC TEMPS 
BNE 2s 
BR 1$ 
BIT #B1T0, SWR 


YOU_HIT 
LISTING 


; YOU TO INPUT AN ADDRESS. 
5, gies THE ADDRESS AND TERMINATE WITH A CARRAGE RETURN. 


;READ THE ADDRESS HE WANTS TO MODIFY. 
oF THE SOFTWARE MAP 


;GET SOFTWARE MAP 
SET DEAD END POINTER 
HEADER 


TYPE ADDRESS ADD+X 
;SET co TER FOR ACCROSS PAGE 


GET ADDRESS 
UPDATE ADDRESS POINTER 


;GET DATA 
;GET ADDRESS 
;UPDATE POINTER 


RIT” POINTER 


me pone 7 


ip cD 
BR I NORE OOATAT TO GO 
t TYPE THE ADDRESSS 


;EXTENDED SOFTWARE DUMP? 




























LO8 
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ia Bes Bpaza8 FEY SF) Bic POINTER 
013542 026703 175504 CMP «EXTEND, R3 





3 ; OB 2F 
SH HEE TRL ors file feos” Hed etthnBtFi. 
4313 013554 104400 012660 ) TYPE DH. 28 
4314 013560 916700 175464 MOV EXTMAP, RO SET POINTER 
4315 013564 016767 175462 o00005 MOV EXTEND, DEAD :SET DEAD END POINTER 
4316 013572 000707 BR 1$ :D0 IT AGAIN SAM. 
4317 013574 OO00167 177374 6$: JMP XHOLD 
4318 3600 900000 DEAD: 0 
4320 :NOW YOU ARE HERE BECAUSE You WANT TO RUN THE PROGRAM 
432] ?REMEMBER NOW, YOU SET UP THE MAP. 
4322 "ARE YOU SURE YOU TYPED IN THE CORRECT DATA.??? 
4323 HERE WE GO 
4304 
4325 013602 SRV.R: 
4326 013602 012737 015442 000004 RUN3: MOV #NO.TRAP,J#4 § ;GET READY FOR UNEXPECTED TRAP 
4327 013610 0120767 O00SO0 165402 "MOV #500, ICOUNT *DO TEST SOO(8) TIMES 
4328 012616 012700 173000 RUN.3: MOV #173000, RO :SET BEGGINING abo RESS 
4329 013622 012767 013646 165256 MOV #23, SLPADR IF SWI4=1; GOTO 2$ WHEN I HIT “SCOPE” 
4330 013630 b1b?04 175410 MOV TABLE, RY ‘SET SOFTWARE RESUTS 
4331 013634 016767 175416 176222 MOV LASTA; LAST -SET LAST ADDRESS 
4332 013642 012703 o00005 1: MOV aS. °D0 EACH ADDRESS S TIMES. 
4333 O13646 022700 173024 23: CMP #173024, RO *DON’T DO THE VECTOR ADD. 
4334 013652 001001 BNE 30 ;BR IF _NOT THE VECTOR ADD. 
4335 013654 CMP {RO)+, (R4)+ “UPDATE TO NEXT ADDRESS 
4336 913656 022700 173224 30$: CMP #173224, RO *1S THIS, THE SECOND TRAP VECTOR?? 
4337 013662 OO1001 C. BNE 10$ BR IF NOT VEC 
4338 013664 O22024 CMP (RO)+. (R4)+ * UPDATE oH POINTERS !! 
4339 013666 O10467 165232 10$: MOV RY, SGODAT 
4340 013672 010067 16523) MOV RO; SBDDAT 
4341 013676 011067 1653-4 MOV (RO), TEMPY :READ THE ADDRESS 
4342 013702 011467 1653/6 MOV (RY) * TEMPS READ THE SOFTWARE ADDRESS 
4343 013706 767 1653ie 165312 CMP TENPS, TEMPY 
4344 913714 001401 BEQ 11S sBRANCH IF OK 
4345 013716 104001 ERROR j INCORRECT COMPARISON. 
4346 013720 032767 OO4OOD 163642 118: BIT 4B1T11, SUR ; QUICK PASS. 
4347 013726 001002 BNE 12$ YES 
4348 013730 005303 DEC RB ;HAS THAT 70 BEEN READ 10 TIMES? 
4349 013732 001345 BNE 2g 
4350 013734 026700 176124 1e$: CMP LAST,RO AS LAST T AppRESS CHECKED? 
4351 013740 001403 BEQ 1s$ *BR IF YES 
| 4352 013742 O00004 SCOPE "LOCK ON THIS ADDRESS? 
| 4353 013744 CMP (RO)+, (R4)+ sUPDRTE E THE Por POINTERS. 
4354 013746 000735 BR 1$ 
4355 013750 03e767 000001 163612 15S: BI #BITO, SWR ot ENDED HOR WOR 9 Fb CHECKED? 
} 
| 325 Bt EB nea 173776 176076 MP #173776,LAST HS ALL Ts HEEKt DONE? 
| 4358 013766 001407 EQ $ 
| 4359 013770 012767 173776 176066 MOV #173776, LAST ery TF ast Sapo ESS. 
| 4360 013776 016704 175246 MOV EXTMAP, R4 SET EXTENDED MAP. 
| 4361 014002 005720 TST (RO)+ POP POINTER 
| 4362 014004 000716 BR 1$ GO DO THE TEST. 
| 
| 
/ 


; 
: 
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173224 


177777 
165142 
001100 
004000 


000001 
173776 


175124 


165052 


001326 
177422 
177432 


38: 


4S: 
S$: 


208: 


21s: 


6$: 


ees: 


23: 
e4s: 


7$: 


ADDRESS: 








M08 
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#173000 RO 
#5$, SLPAD 
#63, 084 
#10. .R3 
#173024, RO 
203 

(RO)+ 
#173224, RO 
21$ 

(RO)+ 

#-1, (RO) 
RO, TEMPY 


#STACK, SP 
#BIT11;SWR 
ees 


R3 

o$ 
#BITO,SWR 
233 
#173776,RO0 
7§ 

24g 
LASTA,RO 
7 

(RO)+ 

4 

ICOUNT 

PC, EOP 

PU 3 

RUN. 3 

0 





3 Tee) THAT WRITING ROM RESULTS IN A TIME SUT 


;SET BASE ADDRESS 

HF suites; GOTO ss at_score 
tT tME OUT inep, OTO 6% 

:D0 EACH ADD 1 oIMES 

315 T HIS AT THE TRAP VECTOR 


0 
UPDATE POINTER 
:1S THIS AT THE SECOND TRAP VECTOR 


:BR I 
UPDATE THE untae 
WRITE ROM WITH 

WAIT ONE INSTR. TIME 


s WRITING ROM DIDN’T TIME OUT. 
RE STACK 


38 S 

D0 EACH ADD_10 TIMES 

;NOT DONE WITH THIS ONE YET. 

iI 1 E EXTENDED 128. WORDS TO BE TESTED?? 


iT THE EXTENDED LIMIT BEEN TESTED? 
i IF NO; KEEP GOING. 

“ALL DONE?? 

IF YES 


GOTO 7$ 
; G0 CHECK SW14: (FREEZE nt) 
SUPORTE, TO NEXT AD xt ADDRESS 


: CHECK ITERATION COUNT 


G0 TO END OF PASS ROUTINE 
;60 DO TEST AGAIN 





Ny 


a 


NOS 
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4402 :PROGRAM 4 
4403 :PROGRAM 4 A eit THE TRAP VECTOR ADDRESS. 
44o4 : THE PROGRAM IMULATES ACTIVATING THE BUTTON 
44ps SFOR E L AND THEN READS 
440 : THE RONTENTS “OF art HE ADDRESS. o 
4407 ON THE FIRST PASS THE CONTENTS WILL «” 
4408 -BE TYPED OUT FOR YOU THE . 
44os “USER TO VERIFY. AFTER THIS THE PROGRAM 
4410 ‘DOES A COMPARE TO THE PREVIOUSLY FOUND DATA 
44] AND REPORTS AN ERROR IF DIFFERENT THAN 
tle ‘WHAT WAS FOUND BEFORE. 
4414 Q14166 012767 O41 OOl244 PRGY: MOV #PRGY.PRG.NO ;SET FOR POWER FAIL 
4415 614174 OOSC&7 165016 CLR LSTERR *PREPARE ERROR CONDITIONS 
4416 014200 012706 001100 MOV #STACK, SP SET THE STACK 
4417 014204 012767 O20000 165006 MOV #20000, ICOUNT :SET ITERATION COUNT TO z000n: 8) 
4418 O14212 005767 O00544 TST FLAGS AVE I BEEN HERE BEFOR?? 
4419 O14216 001106 BNE TAG.A ‘BR IF NOT PIRST TIME HERE. 
4420 014220 005167 000536 COM FLAGY :SET THE FLAG 
4421 014224 012705 o00002 MOV SET RS FOR SWITCH 1 
4452 914930 012704 014752 MOV Wart R >SET STORAGE LOCATION 
4453 014234 012737 O1S442 oo0004 MOV #NO. TEP, aey 3SET FOR TINE OUT TRAP 
4454 914242 012767 O09001 164754 MOV #1, TEMP3° :SET FOR MESSAGE ON CHANNEL NO. 
4425 014250 104400 014764 1S: TYPE eect :TYPE MESSAGE ABOUT CHAN 
Heb 014254 1p4400 015315 TYPE iSPACE 
4498 014260 O16746 164740 MOV TEMP3, -(SP) - . 
4429 014264 104402 TYPOC 
439 Q14265 104400 015315 TYPE ,MSPACE a ey 
4439 . 
4433 014272 104400 015000 TYPE  ,MACTY s TYPE REST OF nESsace 
4434 014276 104400 015013 2s: TYPE MADD1 TYPE ADDRESS MESSAGE - 
4435 014302 012700 173024 MOV bio abe4 RO 
4436 014306 005037 173024 CLR a#173024 
4437 014312 010537 173024 MOV RS, a#173024 s WRITE ROM WITH SHITCH 
4438 014316 O00240 NOP *WAIT ONE INSTR. TIME 
4439 014320 012706 001100 33: MOV #STACK, SP SET THE. STACK POINTER 
4440 014324 012700 173024 MOV #173024 RO ;SET FOR ERROR MESSAGE 
4441 914330 012737 O1S442 oo0004 MOV WNO.TRAP,d#4 3SET FOR NO MORE TRAPS 
Hie 014336 013767 173024 164662 MOV a#173024, TEMPY :READ THE ADDRESS 
4444 014344 104400 015315 TYPE PACE 
4445 014350 0167468 164652 MOV HRERE cp) 
4446 014354 104402 TYPOC 
4447 014356 013724 173024 MOV 3#173024,(R4)+ ;STORE THE INFORMATION FOUND 
444g O14 104400 015047 TYPE yfindde ; TYPE THE SECOND ADDRESS MSG 
yyy 11366 1 700 173224 MOV $2e4,.RO -SET FOR ERROR CONDITION. 
y4so O14 13767 173204 164626 MOV a7 24, TEMPY :STORE ROM DATA 
wel 014400 104400 O15315 TYPE MSP 
4453 O14404 O1E746 164616 MOV TEMPY, -(SP) 
aid 014410 104402 TYPOC 


4456 O14412 O0S267 164606 INC TEMP3 ;GET READY FOR NEXT SWITCH SETTING 
4457 014416 00024) CLC CLEAR THE CARRY BIT 


££ 
Bi 


45455 


OOOOOOCO OOOO OHH OOOO BOOOOOOOOOOCKOVOOVDOKDOOOVOOOV0GIDRO 


OO 0 Oe = Os Be Oe 0 2 Be OO 0 2 = 2 0 2 Ow Bo On Ot be be 0 b= Be 0 = Be ho ho he 


bi bbit 


dasaSstssittts 
BoDD yiraes 


ASS AS 


SSRERE TORRES 


= 
‘+. + 7 7 
NN 
S=zo 

= 
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00 Ry RS. UPDATE RS 
= beets oo0a4e ct 840,R5 :ALL SIMULATED SWITCHS DONE? i 
O00167 177832 IMP PRGH :JMP AND DO TEST AGAIN WITH OUT TYPE CUT” 
4 912703 oo000e2 TAG.A: MOV #2,R3 :SIMULATE SWITCH ! 
12704 014752 MOV #LOC1. RY GET LOCATION WHERE DATA IS STORED 
e737 Olsaie O00004 18: Moy ahd, TRAP, a4 PREPARE FOR TIME OUT TRAP 
ee He NE Oe, ae 
Die70& 001100 23: MOV #STACK.SP !SET THE STACK POINTER. 
Mle73a7 015442 o0co04 MOV #NO. TRAP, 284 § :SET FOR NO MORE TRAPS. 
Oie700 173024 MOV #173024, R0 :SET FOR ERROR MESSAGE 
Btitee MOY Ser7S024,R5 ET THE Sea FROM THE ROM 
10 012767 014752 164406 MOV sLoci.§chparT 
16 012767 i 164402 MOV 73024, T 
516767 | 164472 MOV LOC1, TEMP 
013767 173094 1644 MOV 38173024, TEMP4 
105 CMP R1.R5 31S THE DATA THE SAME?? 
001401 BEQ :BR IF GOOD DATA. 
eye 012700 173228 308: Rov” d17se24.R0 RR OPORCERROR MeSGace. UT NOT THE SAME 
013705 173224 "MOV 38173224, RS "READ THE ROM 
012767 173224 184342 MOV 1 $800aT 
013767 173224 154434 MOV 98173224, T 
rare eC Ee Te chop pata 
104001 ERROR 1 “ERROR. DATA NOT THE SAME AS BEFORE 
00724 318: TST (R4)+ *UPDATE DATA POINTER. 
000241 ci¢ : CLEAR CARRY BI 
006103 ROL ‘UPDATE THE SIMULATED SWITHCH SETTING 
0 022703 oooo40 che 840,R3 sHRVE ALL SETTING BEEN D 
See om Be He Here agy Ba Ome 
ble73? 17 173224 Hoy §-1,98173224 sHRITE, SECOND TRAP YECTOR WITH ~1 
o12700 bai be IY Sy aed Be ea 
01 173024 MOV 38173024, RS : SAME AS 
Bee? 173004 164250 MOV  8173024,$BDpaT ° es 
013767 172024 i6434e2 MOV 38173024, TEMP4 
020155 CMP R1_RS 31S DEFAULT LINE SELECTED =TO LINE 1 
reas FRROR SATA NOT EQUAL TO TINE I 
$72 012737 177777 173024 328: NOV §-1,,98173024 ; WRITE feat TO FIRST VECTOR 
Me floe bee mt RO HT Gere Ba em 
013705 173224 MOV 38173224, RS *READ ROM 
012767 173224 1¢4200 MOV #173224, $8DDAT 
013767 173224 164272 MOV 38173224, TEMPY 
020105 CMP R1,RS :IS LINE 1 DEFAULT LINE 





er ne em ne et me me ee eee 
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001401 SEQ 33$ ;BR IF OK 

104901 RROR 1 ;ERROR LINE 

eo 2A eaeath 33$ SR PC ,£0P ; F END ME 
167? i??ei4 MP PRs ;GO0TO PROGRA 


Pee 


4527 
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OZBMDG.P11 ROM CONTENTS TABLES 
4524. O14764 O0S01S O41412 040519 
15000 041501 O445e4 40526 
15013 OS O4O412 042104 
015047 ois O40412 O42104 
<< 015! 
4525 015104 905015 051120 043517 
015136 OO6414 Ql64le 9774 
015164 ocso16 d20012 054105 
015217 «OS «~Oesole =D 
b15ee3 007 O06407 o424i12 
015250 905015 053520 o20122 
915266 005015 O42e522 04610! 
15308 000044 
015310 O0S01S 037477 000 
015315 049 00040 
915320 920040 900040 
015324 005015 000 
015327 012 = 000 
| 015332 
{ 









DOS 


MCHAN: © .WSCIZ 15) < 12) 12) /CHANNEL / 
MACTV: .ASCIZ/ACTIVATED. / 
MADD: .ASCIZ <15><1e>/ADORESS 772024 CONTAINS: / 
MAODE: .ASCIZ <15)<1e>/ADORESS 773224 CONTAINS: / 
MSG3: .ASCIZ <15><12>/PROGRAM NO. (1,2,3,4) / 
MSG: LASCIZ 14> «15> < 12) ¢ 35) <7) (17726177) (177 /SOFTHARE MAP: / 
MSGS: .ASCIZ § <15><]2><12>7 EXTENDED SOFTWARE MAP: / 
MASTER: .AECIZ «1512747 
MAND: .ASCIZ ¢7)¢7)¢15)<12>/END PASS BMB73-Y/ 
ASCII ¢15>¢12>/PWR UP AFTER/ 
eASCIZ ¢15><12>/REAL PWR FAIL/ 
M.OOL: .ASCIZ /$/ 
MQM: = .ASCIZ <15)«120797/ 
MSPACE: .ASCIZ 7 / 
SPACES: .ASCIZ 7 / 
MCRLF: .ASCIZ <15)« 12 
MEF: SCI2 <12) 
.EVEN 


ee me ee ee ee a ee ee oe + - eee 


MACYL1 27(732 
ROM CONTENTS 


ONDO0000000 


= 0b B= bs ps = ow op — mh 


Seen aoe 


= 
rs 
8 


oo 


or 
pre 
~ 


sennnd cunee® 


w 
£ 


23 


Oe Bae Oe hh Be en Be hs be eden d ae 8 0 bbe be Bb me fe Be 


OOOOOOOOOOOKOOO00H OOOOCVOOOV0OO0000000 


RERMMeTeoRNReS Ba 


ey 

TABLES 
163660 
18372 
173000 
015402 
000004 


163510 
1S2 


011474 


176426 
000042 
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;1TS REAL. PREPARE FOR PUR ‘JP 


;POP THE STACK. 


Trnes" AO COE BORDEN AAS HCH 
8. PFAIL, #24 


TILED. 
SET STATUS TO ZERO 


;SEVEN BIT ASCII FOR DEFAULT “A” 





FOS 
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DZBNDG.P11 ROM CONTENTS TABLES 


4580 O15564 005015 041520 920072 MERRPC: .WSCIZ <15><1l2>/PC: / 


ws81 015572 — 000 
4582 015574 EVEN 
4583 -MCALL .SEOP, .STYPE, .STYPOCT, .SPOWER, .SREAD 
#384 METTTETTTIeTTTTeriTittririr tet errirertl eTeerererttt tt rt rrr ttt eee 
izes ore TYPE ROUTINE 
4588 penis TO TYPE ASCIZ oer fens hig Mao bale arr i ere 
uEsg pu a Latent tig S ae B Chanact O Ae Ta f ER CHARACTER. 
4591 SINOTES: 3H itt GnTaINS THE baRaTER OF no £ WED. B18. ILLER i 
wees ; HNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
4594 ;*CALL: 
4s3s ;%#1) USING A TRAP INSTRUCTION 
deg ia. TYPE » MESADR ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
98 % TYPE 
4599 3# MESADR 
4600 +# 
4601 5#2) USING A JSR INSTRUCTION 
dens 3% MOV PS,-(SP) ;PUSH Proce anon STATUS WORD ON THE STACK 
3% JSR PC} STYPE CALL TYPE ROUT 
4604 3% MESADDR °F IRST ADRESS OF MESSAGE 
4606 015574 105767 163351 $TYPE: TSTB STPFLG ;1S THERE A TERMINAL? 
4607 O15600 100002 BPL 1$ : Y 
| 4608 Bi zede 000090 HALT sHALT HERE IF NO TERMINAL 
4609 015604 000407 BR ;LEA yt 0 
4610 O156068 O1004% 1S: MOV~ RO, -(SP) ;SAVE RO 
| MELD OLEEIN Giepae oo os, re tee iB, ou Caneerge Oh 70 BE TYPED ONTO STACK 
Wet bieeie ibeene BNE 4s . FIT VENTS Th THE TERMINATOR 
4614 015620 005726 TST (SP)+ TF RMINATOR POP IT OFF THE STACK 
4615 015622 012600 MOV a te RO sr the RO 
4616 015624 062716 000002 ‘3S: ADD (SP) ;ADJUST RETURN PC 
4617 hea pos RTI T 
4618 Ol 767 O00026 ~ 4§: JSR G0 TYPE THIS CHARACTER 
4619 O15636 126726 163306 S$: CMPB srtitc, (SP)+ :1S IT TIME FOR FILLER CHARS. ? 
4620 015642 9001364 BNE es ;IF_NO GO GET NE 
4621 O1S644 O16746 163276 MOV SNULL , -(SP) ;GET # OF FILLER CHARS. NEEDED 
4622 ; AND ms ere CHAR. 
4623 tae} 105366 000001 65: DECB 1(SP) sDOES A L NEED TO BE TYPED? 
4624 O156 002770 BLT cs ;8R + Nooo POP THE NULL OFF OF STACK 
| 625 O1S56S6 004767 O00002 JSR PC,7$ GO T YPE A NULL 
| 626 O1S662 000772 BR +L 
| 4627 O1SEE4 105777 163252 73: TSTB aSTPS * WAIT UNTIL PRINTER IS READY 
| S628 O15670 100375 BPL 7$ 
ues Steaks 116677 O00002 163244 eee 2(SP) ,asTPs ;LOAD CHAR TO BE TYPED INTO DATA REG. 
| 43) itiiitiiiiiiiitiitiiiititititiiiittititititiiiitititi ttt is 
| g33 .SBTTL TTY INPUT ROUTINE 
| 4635 ;*INPUT A SINGLE CHARACTER FROM THE TTY 
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DZBMOG.P11 TTY INPUT ROUTINE 
4636 : ;*#CALL: 
4637 ; :% RDCHR s INPUT @ SINGLE CHARACTER FROM THE TTY 
4538 : 1% RETURN HERE ‘CHARACTER IS ON THE STACK 
4640 
4641 015702 O11646 $RDCHR: MOV (SP), -(SP) + PUSH DOU THE PC 
4642 015704 916666 o00004"- DD0002 MOV 4(SP} 2(SP) “SAVE THE PS 
4643 015712 105777 162220 1S: TSTB = AS TKS ‘WAIT FOR 
4644 015716 100375 , BPL 15 A CHARACTER 
ug4s 015720 117766 163214 oo00c4 MOVB  aSTKB "READ THE TTY 
uB46 015726 042766 177600 O00004 BIC atCcdo73. GSP) *GET RID OF JUNK IF ANY 
4647 015734 O00002 RTI BACK TO USER 
4E48 RPE Re eenenecennepeareasesnseeneedsenteanentaneanensaceant 
4649 jRINPUT A STRING FROM THE T 
4650 *CALL: 
4651 1s ROLIN s INPUT A STRING FROM THE TTY 
4652 1 & RETURN HERE ‘ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
4653 : *TERMINATOR WILL BE A BYTE OF ALL O’S 
deed 015736 010346 SROLIN: MOV 3,-(SP -SAVE R3 
4E56 g1s7aG 12703 018044 1$: MOV Raia rc :GET ADDRESS 
4657 015744 O22703 O16054 es: CMP #STTYIN NIB. R ‘BUFFER FULL? 
4658 015750 101405 BLOS a BR IF YES 
4659 015752 104410 ROCHR *GO READ ONE CHARACTER FROM THE TTY 
4660 015754 112613 MOVB  (SP)+, (R3) *GET CHARACTER 
4661 015756 122713 000177 CMPBs«#177, (R3) :IS IT A RUBOUT 
4662 015762 001003 BNE ;SKIP IF NOT 
4663 015764 104400 001152 4§: TYPE SQUES :TYPE A °?? 
4664 915770 000763 BR 1s “CLEAR THE BUFFER AND LOOP 
4665 015772 111367 38: MOVB  (R3),8S “ECHO THE CHARACTER 
4666 015776 104400 O1Ee04e TYPE 
4667 016002 122723 CMPB) 9s & 15, (R3)+ sCHECK FOR RETURN 
4668 016006 001356 BNE "LOOP IF NOT RETURN. 
4669 016010 105063 177777 CLRB 1 (R3) “CLEAR RETURN (THE 15) 
4670 016014 10400 001154 TYPE LF ; TYPE A LINE FEED 
4671 016020 O1 MOV (SP)+,R3 FORE’ R3 
4672 O16022 O11646 MOV (SP), ~(SP) ;ADJUST THE STACK AND PUT ADDRESS OF THE 
4673 O16024 016666 00004 oDD002 MOV 4(SP}_2(SP) FIRST ASCII CHARACTER ON IT 
4674 O16032 Ole766 O16044 O00004 MOV asTrvin, 4(SP) 
4675 016040 od00002 RTI tee 
4676 O16042 000 8S: .BYTE 0 “STORAGE FOR ASCII CHAR. TO TYPE 
4677 O16043 000 “BYTE 0 ; TERMINA TOR 
4678 O16044 000010 STTYIN: .BLKB 8. “RESERVE 8 BYTES FOR TTY INPUT 
ead es SETESETESELETETETTTE TT TTT TTT ELT TTTTTTTTTSTESTESETES ESET SESE ETT 
| 468! .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
| Hogs ; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
4685 + MOV NUM, -(SP) ;NUMBER TO BE TYPED 
4EB5 1% TYPOS sCALL FOR TYPEOUT 
| 4687 * .BYTE NN N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
| 4688 +i -BYTE MM ;M=1 0 a 
| EBS 1% -1=TYPE LEADING ZEROS 
| 4690 ;* i QSSUPPRESS LEADING ZEROS 
| 4691 ;* 
| 
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Ptaltalealeal sale atest ealesleslealesleslealealealealegl al al eg) 
Oe 2 ban 02 2 Fae ban fae Fens Pane Ome Pme G2 Pe ae Pe fo hme Fe Bo Be 


£ 

a 
OOOOOOOOOO OOO OOO KOOOVBOOOOOOOOOOKOODOO0OB00000000 
ee en ee ee ne ne ae ee me ee ee 0 0 ee 


Saree 


FINIFEHSEOFOKLSR LV ERS 


BR 


RRRE 


OL£VMoO 


PORE SSRIS 


Foro 
RO 


SRS 
ae 


stata iota 
RARER 


enn 80 
SegEE 


001002 


000000 
090001 od00el1 
000207 
000002 


000091 000171 
000006 OO0165 
90000S 000154 


000145 
000006 
000132 
000125 
000012 


occode oc00004 


OCT-76 13:68 PAGE 1le 
CII) AND TYPE 


: ¥$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


. 
+ % 


: 
2% 


$TYPOS: rey 


” MOV 
TYPON 


B 
STYPOC: MOVB 
STYPON: MOVB 


1$: 
2s: 


38: 


4S: 
Ss: 


73: 


6$: 


;*STYPOS OR STYPOC 
; #CALL: 


NUM, -(SP) 


NUM, -(SP) 


(SP) 


SOMODE 


» SOF ILL 
+, SOMODE+1 


;NUMBER TO BE TYPED 
;CALL FOR TYPEOUT 


5 
hy fe ta aes HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;NUMBER TO 3 TYPED 
;CRLL FOR TYPEOUT 


:PICKUP THE MODE 

:LOAD ZERO FILL SWITCH 
‘NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


;SET THE ZERO FILL SWITCH 
;SET FOR SIX(6) DIGITS 
;SET THE ITERATION COUNT 
SAVE R3 


TeAVE RY 
SAVE RS 
'GET THE NUMBER OF DIGITS TO TYPE 


;SUBTRACT_IT FOR MAX. ALLOWED 
;SAVE_ IT FOR USE 

;GET THE ZERO FILL SWITCH 
;PICKUP_THE INPUT NUMBER 
;CLEAR THE OUTPUT WORD 
;ROTATE MSB INTO “C” 


3G 
;FORM THIS DIGIT 


;GET LSB OF THIS DIGIT 
;TYPE_THIS DIGIT? 


:GET RID OF JUNK 

; TEST 

;SUPPRESS THIS 0? 

;BR IF YES 

;DON’T SUPPRESS ANYMORE 0’S 
3 MAK Has ta ASCII 

: ASCII IF NOT ALREADY 

;SAVE FOR TYPING 

;GO TYPE THIS DIGIT 

s;COUNT BY 1 

;BR IF MORE TO DO 

GR IF _D 

; INSURE LAST DIGIT ISN’T A BLANK 
:GO DO THE LAST DIGIT 

1 Ree one RS 

RESTORE R3 

;SET THE STACK FOR RETURNING 
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D2BMOG.P11 BINARY TO OCTAL (ASCII) AND TYPE 

4748 016270 012616 MOV (SP)+, (SP) 
4749 oibe7e oo0o02 RTI sRETU 
4750 015274 006 8$: .BYTE 0 ;STO BNE FOR ASCII DIGIT 
4751 016275 000 ? “BYTE 0 j TERMINATOR FOR Type ROUTINE 
y752 «016276 oon —$OCNT: ‘BYTE 0 ‘OCTAL DIGIT COUNTER 
4753 016277 000 -$OFILL: .BYTE 0 j ZERO FILL SWITCH 
4754 016300 900000 SOMODE : 0 UMBER OF DIGITS TO TYPE 
ae eT SHSSSERHEREUOESAERSSEEEESRURESSEEESEEATSOSEDSSSNEASERTEOSESESS 
pret ‘om SCOPE HANDLER ROUTINE 
4759 2 *SW1 LOOP ON TEST 
4760 THE TEST NUMBER (STSTNM) IS INCREMENTED AND DISPLAYED IN DISPLAY<7:0> 
W761 ?#AND THE ERROR FLAG (SERFLG) IS DISPLAYED IN DISPLAY<1S:08> 
4763 016302 SSCOPE: 
4764 O16302 006137 177570 ROL 3aSWR sLOOP ON PRESENT TEST? 
4765 016306 100425 BMI SOVER YES IF SW14= 
47E5 -euueESTART OF CODE FOR THE XOR TESTERSANS 
4767 016310 OOO416 SXTSTR: BR 6$ s IF _RUNN ING ON THE “XOR" TESTER CHANGE 
4768 ‘THIS INSTRUCTION TO A “NOP” (NOP=240) 
4759 016312 013746 O00004 MOV JKERRVEC, -(SP) SAVE THE CONTENTS OF THE ERROR VECTOR 
4770 016316 012737 016336 OO0004 MoV #55, JHERRVEC TAMeOUT 
477] 016324 005737 177060 TST 04177060 *TIME OUT ON X 
4772 016330 012637 OO0004 MOV (SP)+, JHERRVEC * RESTORE Tee ERROR VECTOR 
4773 016334 OO0404 BR SSVLAD :GO TO THE NEXT TEST 
4774 016336 S$: CMP (SP)+, (SP)+ iCLEAR T THE STACK AFTER A TIME OUT 
4775 016340 012637 OO0004 MOV (SP) +; JHERRVEC THE ERRO R VECTOR 
4776 916344 BR OVER’ i ReRD Oh THE PRESENT TEST 
4777 016346 6S: -#HHREND OF CODE FOR THE XOR TESTER#SH# 
4778 D16346 105267 162530 $SVLAD: INCB § $TSTNM > COUNT TEST NUMBERS 
4779 016352 O11667 162530 MOV (SP), SLPADR “SAVE SCOPE LOOP ADDRESS 
4780 016356 105067 162521 CLRB = SERFLG *ZERO THE ERROR FLAG 
4781 O16362 016737 162514 177570 SOVER: MOV STSTNM, auDISPLAY s DISPLAY TEST NUMBER 
4782 016370 016716 lée5ile MOV SLPADR, (SP) “FUDGE RETURN ADDRESS 
4783 016374 o00002 RTI “FIXES 
wee : Prritiiti ttt titi ittititittitiiiititttitttttit ttt ttt 

| 4786 .SBTTL ERROR HANDLER ROUTINE 
4788 ; #SWIS=1 HALT ON ERROR 
4789 **SW13=1 INHIBIT geERROR TYPEOUTS 

| 4730 :*G0 TO SERRTYP ON ERROR 

| 4792 016376 SERROR: 
4793 016376 105267 162501 7$: INCB  SERFLG sSET THE ERROR FLAG 

794 O1bH0e 001775 BEQ zs LET THE FLAG GO TO ZERO 

4795 O16404 016737 162472 177570 MOV STSTNM, JUDISPLAY DT ePL Ay TEST NUMBER AND ERROR FLAG 
4796 Oibule 005267 162474 INC SERTTL SINC RROR COUNT 

| 4797 O16416 011667 162474 MOV (SP), SERRPC *GET ADDRESS OF ERROR INSTRUCTION 
4798 Ol6422 162767 OO0OD2 162466 SUB #2, SERRPC 
1799 0164 17767 Lbenbe 162456 MOVB aSERAPC, SITEMB ;STRIP_AND SAVE THE ERROR ITEM CODE 
4 D164 02 177570 BIT #SW13, J&SWR ‘SKIP TYPEOUT IF SET 
4801 O16444 001004 BNE “SKIP TYPEOUTS 

| 4802 O164%6 004737 016470 JSR PC, J#SERRTYP GO TO USER ERROR ROUTINE 

| 4803 O164S2 104400 001153 TYPE  ,SCRLF 


a ee ee 
i 
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4804 
4 


976 


1645 

BieNee 
015464 
016465 


Saas ssss yuo saaiit 


BEE 
Crmoa 


B 


JOS 
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ERROR HANDLER ROUTINE 


005737 177570 2s: TST dsSWR ;HALT ON ERROR 
100001 BPL 3$ KIP IF 





°S CONTINUE 
000000 HALT ;HALT ON ER ROR! 
ocooo2 33: RTI N 
5 SPURTE EE TELE TTT TTT T TTT TT TTT TTT TET TTT TTT eLer eT eTT Tere reer Ter 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
s*THIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITENB) TO DETERMINE WHICH 
:#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE” (SERRTB), 
?#QND REPORTS THE APPROPRIATE INFORMATION AONCEHININE THE ERROR. 
SERRTYP: 
104400 001153 TYPE SCRLF s"CARRIAGE RETURN” & “LINE FEED” 
010046 MOV RO, -(SP) : 0 
005000 CLR RO’ ‘PICKUP THE ITEM INDEX 
153700 001114 BIS8 a#SITEMB,RO 
001004 BNE 1$ ;IF ITEM NUMBER IS ZERO, JUST 
“TYPE THE PC OF THE ERROR 
O1674 162404 MOV SERRPC, -(SP) :SAVE SERRPC FOR TYPEOUT 
“ERROR ADDRESS 
104402 TYPOC GO TYPE--OCTAL ASCII(ALL DIGITS) 
000426 BR &S GET OUT 
005300 1S: DEC RO sROJUST THE INDEX SO THAT IT WILL 
006300 ASL RO ; WORK FOR THE ERROR TABLE 
resent aac ORD 
062700 001156 ADD #SERRTB, RO sFORM TABLE POINTE 
012067 og0004 MOV (RO)+, 2$ ‘PICKUP "ERROR Nee CAGE" POINTER 
001404 BEQ 3$ *SKIP TYPEOUT IF NO POINTER 
104400 TYPE it YE THE ERROR Ne MESSAGE™ 
Ges gous GH Ss eta tne 
O1206/ 000004 3S: HOV ree 4g iprae ey AER be TER 
104400 TYPE HYPE THe SOAT F UPADER” 
00000 4S: .WORD O ;"DATA HEADER™ POINTER GOES HERE 
104400 001153 TYPE SCRLF *"CARRIAGE RETURN” & “LINE FEED" 
011000 cs: MOV RO), RO ; PICKUP "DATA TABLE” POINTER 
001004 BNE 7§ °GO TYPE THE DATA 
012600 6S: MOV (SP)+.RO “RESTORE RO 
104400 001153 TYPE SCRLF "CARRIAGE RETURN” & “LINE FEED" 
000207 - RTS PC * RETURN 
013046 MOV 3(RO)+,-(SP) i SAVE Q(RO)+ FOR TYPEOUT 
104402 TYPOC TYPE--OCTAL ASCIT(ALL DIGITS) 
005710 TST (RO) ito THERE ANOTHER NUMBER? 
001770 _ BEQ 6$ *BR IF NC 
104400 016620 TYPE 8S ; TYPE TWO(2) SPACES 
000771 BR § 
020040 000 83: SASCIZ / / TWOC2) SPACES 
Ole624 EVEN 


; | JH ISH 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 





a 
' 
; 
i 
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4860 
4861 
4B62 
4853 
4e6y 
4865 016624 
4856 16626 
4857 16634 
4868 016636 
4869 16640 
4870 O1664e 
4971 O1664N 
4872 16646 
4873 16650 
4874 16652 
875 O16654 
4876 O16656 
4877 O1 
4878 DIGEEe 
4879 16664 
4880 O1 
4881 016670 
4882 O1667e 
4883 O16676 
4884 016700 
B85 016702 
4886 016704 
4887 016710 
4e88 916714 
4889 016716 
4890 016720 
4891 01672e 
4892 016724 
4893 
4894 
4e95 
4896 
4897 
4898 
4899 
4800 
4801 
4802 016726 
4903 0167 
4304 0167 
4905 016736 
4908 167 
4 16744 
4908 
4909 
4910 
4911 
4815 
4914 
4915 


KO9 
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MACY11 27(732) 
READ AN OCTAL NUMBER FROM THE TTY 


;*CALL: 
RDOCT 
7% RETURN HERE 


011646 SRDOCT: MOV (SP), -(SP) 
516666 o00004 oD0c02 MOV 4(SP} 2(SP) 
010046 MOV RO, -(5P) 
010146 MOV R1;-(SP) 
010246 MOV R2;-(5P) 
104412 13: ROLIN 
012660 MOV (SP)+,RC 
1 CLR Ri 

Q2 CLR Re 
112046 23: MOVB  (R0)+,-(SP) 
001412 BEQ 3$ 
006301 ASL Ri 
006102 ROL Re 
006301 ASL Ri 
006102 ROL Re 
006301 ASL RI 
006102 ROL Re 
042716 177770 BIC #107, (SP) 
062601 ADD (SP)4+,R1 
000764 BR 2g 
005726 3S: TST (SP)+ 
010166 oooole2 MOV R1, 12(SP) 
010267 oo00010 MOV Re: SHIOCT 
012602 MOV (SP)+,Re 
012601 MOV (SP)+'RI 
012600 MOV (SP)+'RO 
poco0e2 
000000 SHIOCT: 0 


-SBTTL TRAP DECODER 


;READ AN OCTAL NUMSER 
sLOW ORDER BITS ARE ON TOP OF THE STACK 
sHIGH ORDER BITS ARE IN $HIOCT 


i TNPUT A a FOR THE 
:PUSH RO ON STACK 
i HR ch STACK 

TAC 


1 GORE, oe 1st CHARACTER 


;PICKUP THIS CHARACTER 
iI ZERO GET OUT 


; 
3*4 
;*8 


;STRIP THE ASCII JUNK 
ty IN THIS DIGIT 


: CLEAN ie FROM STACK 
SAVE THE RESUL 


;POP STACK INTO Re 
POP STACK INTO RI 
s0OF STACK INTO RO 


GH ORDER BITS GO HERE 


WORD HI 
8 MUSE HEHEHE HEHE HEHEHE HEHEHE EE 


3 ¥THIS ue WILL Aen THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;#AND USE IT TO I THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE eat OBTAINED IT WILL 


:*GO TO THAT ROUTINE. 


010046 STRAP: MOV RO,-(SP) 

016600 osooce MOV esr), RO 

005740 TST 

111000 MOVB 

616000 016746 MOV (RRO 
2 RTS RO 


-SBTTL TRAP TABLE 


798 VE _RO 
eee BY Soe 


;GET eat ThE OF TRAP 
;INDEX TO TABLE 
GO TO ROUTINE 


;*#THIS TABLE CONT Oa on tne ADDRESSES OF THE ROUTINES CALLED 


+*BY THE 
: ROUTINE 












LOS 
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OZBMDG.P11 TRAP TASLE 
4916 ene 
4917 D1E746 STRPAD: 
4818 016746 O1SS74 $TYPE : CALL=TYPE TRAP+O( 104400) TTY TYPEOUT ROUTINE 
4819 016750 016100 STYPOC : CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING 
4920 016752 O16054 STYPOS :CALL=TYPOS TRAP+4( 104404) TYPE OCTAL NUMBER (NO LEADING ZE 
421 016754 016114 STYPON : CALL=TYPON TRAP+6(104406) TYFE OCTAL NUMBER (AS PER LAST c 
4922 016756 915702 SRDCHR : CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER BOUTIN NE 
4923 016760 015736 SROLIN ; CALL=ROLIN TRAP+12( 104412) TTY TYPET 
4924 016762 O16624 SRDOCT : CALL=RDOCT TRAP+14(104414) READ AN OCTAL NUMBER FROM TTY 
4925 O16764 OOSOIS O47S22 Oe011S EM1: .ASCIZ <15><12>/ROM READ DATA COMPARISON ERROR. / 
017026 005015 OS1le7 OS2ell1 EM2: lASCIZ <15><1e>/WRITING ROM FAILED TO TRAP./ 
017064 905015 047125 54105 EM3 SCIZ <15><12>/UNEXP TRAP WHILE READING ROM. Y 
017124 Oo5015 o40S506 o40S524 EM4y ASCIZ <15><1o>/FATAL TRAP. ROM PC ON STACK./ 
617164 005015 041520 O20040 DHI SCII <15><12>/PC SOFT OM/ 
017211 015 o40412 o42104 ASCIZ <15><12>/ADDRESS ADDRESS ADDRESS EXPECTED FOUND / 
017263 015 OS001e 04503 He: ASCII <«15><1e>/PC ROM/ 
017273 O15 oO4O4Ie O42104 "ASCIZ 15) < 18) /ADDRESS ADDRESS, 
017315 O15 OSOOl2 O20103 DH3: {ASCII <15><12>/PC OF  PROGRA 
017337 ore O52012 o40S22 bane ASCIZ (12> 15> / TRAP ADDRESS” 
W326 017362 OO1116 001124 001126 DT1: | .WORD SERRPC,SGDDAT, SBDDAT, TEMPS, TEMP4,O 
1327 017370 001224 O01226 o00000 
4829 017376 O01116 001226 OO0000 DT2:  .WORD SERRPC, TEMPY,O 
4330 017404 001116 015590 o00000 OT3: “WORD SERRPC, XSTORE, CO 


. e +4 
4932 017452 CORMAX: 
4 . END 


ee ce ae a ee 


aa 
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DZBMODG.P11 
ADDRE 14164 
ALLE 11246 
BITO = pont 
BITCO = 000001 
BITO1 = O0000e 
BITOe = 000004 
BITO3 = 000010 
BITOY = 000020 
BITOS = 000040 
BITO& = 000100 
BITO7 = O00e00 
BITO8 = 000400 
BITGS = 001000 
BIT1 = 000002 
BIT1O = 002000 
BIT11 = 004000 
BITle = 010000 
BIT13 = 020000 
BITI4 = O40000 
BITiS = 100000 
BITe = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = ooo9040 
BIT6 = 000100 
BIT7 = 900200 
BIT8 = 000400 
BITS = 901000 
BM.ERR 012143 
BM87 012066 
BPTVEC= 000014 
CONT 010632 
CORMAX peg 
DEAD 01360 
DH.2 012576 
DH.2A e77e 
DH.ecB O12660 
DH1 7164 
DHe 017263 
DH3 17315 
DISPLA= 177570 
DT1 017362 
DTe 017376 
DT3 17404 
EMTVEC= 000030 
EMI 16764 
EMe 017026 
EM3 0i7064 
EM4 017124 
END.YA 001776 
END.YB 002776 
END.YC 003776 
END.YD 004776 
END.YF 005776 
END.YG 006776 
| 
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4213% 
3877% 


WWW £& UNG UTUT UT 
MR —-OW)~- Oe OMTU 
Ww erietube “ttl ce 


4251% 
3903% 


4090 


4ObCe 
3911% 


4158 


4085 4346 


4315*  4318% 


41954 
49258 
4795% 
49294 
3845* 


4274 


ne ee + ee 


MO9 








44OLs 

3919% 3927% 3944% 3951*% 3957% S363% 3969% 3975*  3981% 
4307 4355 4385 

438i 

4313 
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END.YX 007776 


END. Y . 18868 


EXTEND 011252 
EXTMAP °O11250 
FLAGY 14762 
GNS = FHXXXE 
ICOUNT 001220 
INITFG 011254 
ToTvEt= 9o0020 
LAST 012064 
Casta bLisee 
Loc! © o147se2 
Lo¢e = 914754 
LO¢3 sO14756 
Loe4y = 14760 
LoGIc o15ss0 
LSTERR (CO1z16 
MACTY giso00 
MADD! 015013 
MADD? 015047 
MAP.YA 001400 
MAP: YB 02000 
MAP{YC 003000 
MAP" YD go4000 
MAP: YF 05000 
MAP: YG 905000 
"YX 007400 
"¥. 007000 
MASTER 015217 
CHAN 14764 
MCRLF 015324 
MERRPC 15564 
MFAIL 0iS2S0 
MLF 915327 
MSG3 015104 
MSG4 015136 
MScS 015164 
MSPACE 015315 
M.DOL 015306 
MEND  Q15223 
OM  O15310 
NMATCH 011360 
NOROM 011260 
NOROMS 011270 
NO.TRA O1s44e2 
PC’ =vDO0007 
PIRQ = 177772 
PIRQVE= 000240 
PRG.NO O1S44O 
PRG.1 11510 
PRGi -O1T974 
PRGS =: Ol 2216 
PRG3 «OL31S6 


Cc 
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42118 


4173 


4253 


wise 


4423 
45 16% 


4Y211* 
3914 


4S62% 


3962 


4279 


4238 


444] 
4S74% 


44 14% 
3922 


NO9 


45254 


4284 


44ES 
4S78% 


4S47 
3930 


4923 4924 

4493% 

4117* 4152 4331% 4350 

3945* 3952% 3958% 3964* 
45194 

4289 4297 4426 4430 

4470 4S498 . 

4618% 462eS* 44é3Ox .4802% 
45488 4557 4567 

3995 40278 4103 4567 








4357 4359% 

3970%  3976% 3982 
woes 4451 4S26% 
4846% 








oo eeeene-w 


ace i 
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OZBMDG. P11 CROSS REFERENCE TASLE -- USES SYMBOLS 
ERGY O1siés 49004 4414e 446] 4517 4SE3 
BS = l7?77 3Sé8 387 “S462 4SS56e 
PSN os 177776 3578 
PWRVEC= 000024 4388 
PRR.UP 015402 4533 45498 
ROCHR = 104410 4653 49228 
ROLIN = 104412 3928 3330 4215 4876 49238 
RDOCT = 104414 4240 4261 49248 
RESTRT 010000 348 38368 4006 
RESVECs 900010 4338 
RUN.3 913616 43288 4399 
RUNS 013802 43268 4398 : 
RO =°.009005 3648 030% 4035 4037 4038 4040 4042 4043 4053 4OSE 40E5 4071% 4074 
4076 4077 4079 4080* 4082 4097 4095 4098 4118% 44123 4124 4128 4129 
~ 4] 41S4 “ 4152 4160% 165 4166 4 177 4178 4186 4187 
41S2e 442718 Ye 4277 427 4291 232 4293 4301 431.4% 328% 33 4335 
4 4340 4341 43 353 4361 4Y3EEs 70 4373 43 43764 
4378 4387 4393 4435* 4Y44O# 4459% 4471# 448l*e 4497" 4507* 4S4¥ex 44% 
40S3% 4610 4611# 44612 461S5* 44818 4619% 44820% 4827% 4828% 4829% 4830% 483le 
me SEA ae 4B444  484B 4850 4867 4871" 4874 4e90e 49 4903% 4904 
Ri =*.009001 365e@ 4Yle3# 4 4139* 4141 4165# 4167 4177% 4179 4212% 4213 423S* 4241# 
4243 4 447 Ee 473 4498% 4502 3 4ySe6S*# 4570 
4574 4WEEO 487ce# 4876% 4878% Yes0e 4883* 4886 4989# 
Re =~000002 3688 S*#  3940% 3947%# 3948 3354 3 33966 33 3978 3984 3991# 
3 iglge 4217# 42lBe 4219 4222 4224 4227 4569 4873% 4877% 4879% 488le# 
&3 =%000003 3678 3339 4002 4O034% 44OSO# 4073% 4O87# 4Y119* 4128" 4144s 
4161# 4168# 4186% 44e99* 4 4301 4309 4310 4332% 44348% 4369* 4383%  4463# 
3 cs 4ESE# 4657 4660% 4661 4665 4667 4659% 44671% 4711 
4720% 447268 4472e7% %4Y730% %4735e #+4736% 37 abe 
RY =”009004 3688 44032c# 4037 40 404 4O44 4056 4064 4330% 43 4339 4342 
4352 43608 Wieet 4447" Y4E4*# 4472 4Hs 4712 4714% 471S5* 4716% 4717 47 18% 
4732 4734" 474ee 8 4745% 
FS =~00000S 36398 “ele 4437 * ¥44ss 44734 4478 44YB2e 8 44gs 4499% 4502 4509% 44513 
4713 4719 721% 47238 44724e 4725" 4726 4Y744# 
Fe =%000005 3708 7% Be 
R7 = 3718 373 
SAVRO 001230 e3z8 
SAVR1 Sdle3e 4g 
| SAVRY =6001234 S358 
SAVRS 001236 S2ts ? 
oP =~000006 a7ee ) 638414 «=6—638S51# . 38b1* 386S9% = 3874 3875 * 38% 38 
j 3933 3931 4084# 413e# 44137 Yl4S# 441708 4174* 4Yl83% Y4elsb 4234% 4e4l 4242% 
4262 42B1# 42B6# 4e9S# 4380% 44Y416% Y4ebe Y4Y439% 4YH4Se 44S3e 6 4S29# “ 
4056 4537 4S41# 5 4 4ySSS*# 44510e% 4 4“6lee 4614 4615 46 16% 
4619 4621% “623% 4629 441% “642% 464S* YE46e Y4ESSe 4671 4672%  44672% 
4674% 4703% #4704 4705 4706% 4711 47le*x 4713% 4744 4745 4746 4747% 
4748% 4769% 4772 4774 4775 4779 4782% 4797 4818% 4823% 4844 4yB4se 4486S" 
vara mh 4868% 4869* 4871 4874" 4882e% 4883 4885 4886# 4888 45es 4890 
SPACES 015320 4Se68 
'SRV.A 013356 ww 42618 
| SRV.0 013254 422 42328 
/ SRY.L 913370 4220 42708 
R 013692 4226 43258 
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DZBMOG.P1I CROSS REFERENCE TASLE -- USER SYMBOLS 

STACK = 001100 9538 3841 3051 4084 4380 4YHib 4439 S469 #44541 4S55 

START 010102 38518 3854 

STKLMT= 177774 spas ee amet By Mego Raed ae 

SwR = 177570 3608 «361 46404 «SSS «080 HIS 4307) 434E ESS 41S 
4805 4804 

swO = 000001 4Ole 

SwOO = 900001 3918 40) 

SwO1 = 000002 400 

Swo2 = OO0004 3892 399 

Eun = QAAniNA 305 308 

Swo4 = O00de0 3675 ©. 367 

SWS += 000040 3869 396 

Sw05 = 000190 3659 395 

SwO7 = 000200 3848 = 394 

S08 = DOOYOO 3838 460 393,ssN760—ss«d778 

SwOS = 001000 3828 392 480 3842 4760 4776 4778 #44780 4784 #4790 4807 4YaQe 

Swi = 00002 4Ooe . 

Swi = 002000 3218 480 4790 4795 4gog 

Swill = OO4000 2808 480 3848 4760 64778 +4780 4764 

Swie = 010000 3798 

Gwi3 = 020000 3788 #4789 4800 

SWwi4 = O40000 3778 #94759 04764 

SwiS = 100000 3768 #4788 4804 

Swe = DOCOO4 3998 

Sw3 = DOOD 3988 

Sw == D00020 3978 

| Sus = 000040 3968 

Swe © = 000100 3958 

| 87 = 990200 - 3048 

| Swe = DOCdO0 —-3638 

| Swe _ = 001000 363% 

|TABLE §O11244 3850% 38764 2884* 3902 3910% 391% 3926 3943 3950% 3956* 39628 3968% 3974 

3080 3985 #40078 4O32 4119 8 4ize is2 4212 4271 «©=—- 4330 

(TRS.A 014434 4419 «44638 «4494 

| TSITVE= 000014 4348 

| TEMP3) (001204 S3ie 4Ou4e 4O4S 41e4* 4132 4140e 4166 4170 4178% 4277% 4281 42d2* 4342s 

| 4343 -4424e «2B | O47ER «= «4926 

TEMP 001226 S328 «4043 «4O4S 4OB2e 4125* 4137 4141# 4149 4167" 4174 4179% 4189 42328 

| 4234 4235 424b% 4248 4O7b# 42e6 4eS91# 4295 4YS41# 4343 4378% eqsle Gees 

u450e 4453 4d77* 44e4e 4EDle 4Sllx 4926 4929 

TEMPS 001222 S30e 4iz2e 41S4# 4164* 4189* 4275*  4303% 

| TKVEC = DO0060 duis 

| TPVEC = 000064 44d gs 

| TRAPYE= 000034 440s 3846  3847% 

TRTVEC= 000014 4358 

| TYPE = 104400 3932 3937 3987 3989 4OOS 4013 4120 4121 4130 4134 4147 4ib2 4163 

416941734181 «= 4H214)—S ss 22s—si«S—iBSCCZ?)=Sss2530s«279.s«7H—s—s7G)Ss«DY 

i 4289 4297 4312 4313 44e5 Qayce 4430 4433 4434 Yedd wad 4451 bb) 

! 4563 SEH ub634bEBC‘<‘éG7?ON#*#=*$4N738°«=«s«Y803.0Sss4B17—'—«s«NB34H)=SssB2G.—idSBSS] HS 

' TYPOC = 104402 4133 4138 4150 171 4175 4184 4236 4249 4eB2 4287 4298 42g 4MuG 
M454 4625 iiBs«9 8 

TYPON = 104406 49218 

YPOS = 104404 49208 

VERS 012171 41078 

VERSON 015562 3679 3087% 3905* 3913 392]% 3929% 3984* 4564 45798 


mee = er en es ne ee eee 
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ne eee 


D10 
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OZBMOG.P11 CROSS REFERENCE TABLE -- USER SYMSOLS 
a 013174 4214e 4230 4252 4254 4263 4317 
xST 615500 45S0e 45608 4930 
X.X 011156 39908 
Xl Barres S66 4571 45788 
SBDADR ll 4688 
S$B8DDAT O01] 470@ 4O42e 4340e 447S* 4483e 4500s 4Si0* 4926 
SCMNTAG 001100 456% 3837 3844 32848 
$CM3 = 000000 4808 
SCRLF 001153 4818 46 4803 4808 4817 4836 484} ar4e 
SENDAD 015550 452 45738 
SERFLG 001103 4SS9@ 476 4780% 4784 4793*% 4808 
SERMAX 001115 4658 47 
SERROR 016376 3844 47928 
SERRPC O01116 4668 4797% #4“798% 4799 4808 4823 4926 4929 4930 
SERRTS OO11S5E 49S9e 4831 
SERRTY 016470 48168 
SERTTL OOlile 4638 4796% #4808 
SFILLC 001150 4788 4619 4631 
SFILLS 001147 4778 4631 
$GDADR 001120 4678 
SGDDAT 001124 4698 44O41% 4335* 4474 4926 
SHD = 000003 S47 o-8 
SHIOCT 016724 4887% 489268 
SICNT 001104 4608 
SITEMB 001114 4648 4799% 4808 4820 
SLF 001154 4828 793 4808 
SLPADR 001106 4618 3848% 4O31# 4070 4329% 4367% ##47739* 4782 4784 
SLPERR 001110 4628 
SNULL 901146 4768 8 4621 4631 
SOCNT O16276 4710% 4739% 47528 
SOMODE 016300 470S* 44709* 4714 4717% 44728% 47548 
SOVER 016362 4765 776 47818 
$PAsS 001100 4S78 
SQLES 001152 4808 4679 4808 
SRDCHR 015702 46418 44922 
SRDDEC= x#ee44 U 4925 
SROLIN p87 26 46558 4923 
SROOCT O1 48658 
S$RDSZ = 000010 4e-qSe 
SSAVRE= #282248 4925 
Sots 016302 3842 47638 
SSETUP= 000007 38378 2842 3844 3846 3848 
SSTUP = 177777 38378 
SSVLAD C16346 4773 47788 
SSWR = 160000 460 S47 Sues 3848 At} 4760 4764 4776 4778 4780 4784 47898 4789 
4796 4800 4804 4807 4808 
STKB 001140 4738 4640 464S 
$TKS 001136 4728 3839 4640 4643 
,§TN = l S478 
| $TPB 1144 475e@ 4629% 4631 
| $TPFLG 001151 479¢ 4606 4631 
| $TPS 001142 474% 4627 4 
- | §TRAP 016726 3846 49028 
| $TRP = OOOOIE 4909e¢ 4491Se 49208 449218 49228 49238 49248 4925s 
‘| STRPAD 016746 4906 49178 
/ STSTNM 001102 458% 4761 4778% 478] 4784 4795 4808 





ae ee we ee ee eee 
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OZBMDG.Pil CROSS REFERENCE TABLE -- USER SYMBOLS 

t 













TTYIN O18044 M3 4657 4674 46728 
= eREEEE LU 492 
e eee U 492 
48068 4909 4918 
STYPOC reat 47088 4919 
STYPON O16114 4707 47108 492) 
ST 16054 47038 920 
exrerr 016310 47678 ud | 
ILL 018277 4704* 4708* 4718 47538 
= 017452 3408 344 s4éea 4518 4S48 483 SSCs 38288 38298 38208 38318 3840 3848 


3859 4015 40168 41078 41958 44Se4%s 4Sebe 4568 45828 4631 4640 46788 4679 


4784 4808 48558 4SeSe 49318 
-PFAIL 015332 45268 4540 





ee 


— eee = 


F10 
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OZBMDG.P11 CROSS REFERENCE TABLE -- MACRO NAMES 
C le 4448 
ENDCOM ls ae 
ERROR 3548 4047 4083 4345 4379 4480 4487 4504 4515 4os4 4SS6 
ESCAPE ls asad 
MULT le weg 
NEWTST le 444s 
POP le 4448 488g 
PUSH le 4448 4867 
SCOPE 3558 40Oss 4097 4352 4392 
SETTRA 49098 4915 4920 492) 4922 4923 4924 
SETUP ls 444g 3837 
SKIP ls ads 
SLASH weit ed 
ae le 444% 483 4584 4631 4648 4679 4755 4784 4808 4gsé 4893 
TRMTRP 4909¢ 
TYPBIN ls Gadg 
TYPDEC ls S449 
TYPNUM ls Yay 
TYPOCS ls 444g 
TYPOCT le 4448 4823 4847 
TYPTXT ls a448 
SHOW S498 3941 33948 2954 3960 3966 3972 3978 
SROMTY c49s8 3882 3830 3908 3916 3924 
| SSCMRE 444g 
SSCNTN G44 y 
SSeuT i quae 
SSSET 490S%¢ 4919 4920 4921 4922 4923 4924 
SSSKIP ls sudg 
-EQUAT le 335% 249 
. HEADE ls 3358 537 
-KTil ls 
-ROLIN 336% 
. SETUP ls 335 3836 
. SWRHI 1s 3358 
| BURLO 3358 
-SCATC 1s 335% 337 
-SCNTG ls 3358 st 
| /$DB2D 1s 
- $DB20 1s 
-SDIV ls 
| . SEOP le 45838 
| , SERRO ls 336% 4784 
, - SERRT ls 336 4808 
| .SMULT ls 
| . SPOKE ls 45838 
| .SRAND ls 
| . SRODE ls 
| “Sheeo of if wees Wea 
| - SORVE ls 
| «85820 ls 
' ,$S820 ig 
| -SSCOP 1s 336% 4755 
-$SIZE le 





| JUNE 1976 
DZSNDG.P11 


MACY11 
CROS 


& 
8 3358 
& 


es 4583s 
e 4583s 


7(732). 34 
FERENCE TA 
4$93 
4584 
4679 


See ae ads 
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G10 
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DZBMDG.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 
ADD 4117 4543) HIE 4706 «= sH#716—s“4833 4883 
= 48e8 86064829) i4830—s876iCéB7B «BBD 


a 4060 4062 4091 4093 aes 4153 4159 864188 8 Y4ee0 4223 4228 4302 4308 





BGT 4740 
BIC 3947 4218 | 4b4&S 4730 
BIS 4735 «4736 
1384820 
IT yo4g = «4053 4eS )= «4090 
0 4245 
BLCS = _«YESB 
BLT 4WB24 4741 
BMI 4765 
BNE 0 3859 387 3883 
3973 3979-3986 «= 3994 
4101 4127443 HSS 
4396-4419 HED 4G 
BPL : ue4y «7 
EF 3873 3897 3900 ge 
43624389 «4394 = 4608 
cLe 4457-449 
SLR 3838 3850 3852 
446 456247 
cL 4bE9 «4780 
9 3866 3874 3882 
3972 3978 4399339 
4yo32 40954126 
4335 «4336 «43384343 
4513-4567 4BS7 
cMPB 461946614667 
CON 60 3936) 4420 
DEC 4050 41 4154 
DECB«Ss«M623) «4728 = «41739 
ENT 354 
HALT 344 ©3933 «4014 = 4193 
INC 4734 «47424796 
Ine = 47784743 
IMP 348 3860 3888 
41944 4es2 454 
J 41024 4516 
MOV 3841 3842 3843 


JUNE 1976 
OZBMDG.P11 
4499 
4541 
I r4—4 
4770 
48ES5 
MOVB 4612 
4874 
NEG 4715 
NOP 3864 
RESET 4572 
FOL s4Eg 
RT 4559 
T 4578 
SUB 4798 
TRAP 49093 
TST 3858 
4309 
4304 
TSTB 4606 
-ASCII 480 
-ASCIZ 482 
-BLKB 4678 
. BLK 3828 
BYTE 458 
477 
. ENABL 1 
END 4933 
-ENDC 349 
3848 
4678 
4803 
4922 
EQUIV 354 
420 
VEN 4016 
F 344 
3868 
TEs 
4808 
4925 
. IFF 352 
4776 
IFT 4778 
IFTF 4778 
IIF 344 
4780 
oo 3837 
LIST 1 
4918 
RO 1 
MCALL 335 
NLIST 1 
4912 
PAGE aad 
2167 
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CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


4g3 cue «Su? 
4784 «4788 «= «4789S ss«4790-Ss«4B08 
4267 4888 

335 3444s 





——— ee ee we a ee 


J10 
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OZEMDG.Pil CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 
REPT 344 










- SBTTL usin 338 345 350 446 485 SSO 4586 4633 4681 4757 =. $786 4810 4858 4695 
TITLE $97 
- WORD 344 


457 460 
4926 «= 4929-4930 





461 462 463 466 467 468 469 470 471] 





4835 4840 4892 
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